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DON'T JUST GAZE AT THE STARS . . . 
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Turn your programming efforts into real dollars. sOjZt StCJTZ 
wants to put your original program in Rom Pack. With our experience and 
expertise you can be assured of all the help you need in achieving the highest 
R.O.E. (Return On Effort). Our extensive marketing and distribution will give 
your program maximum national exposure. 



So Come Join The Stars. 



WRITE: 



soft StQR LtO- 

ACQUISITION DEPARTMENT 
4iri6 JOY ROAD 
CANTON, MI 48187 



M.A.C.E.. JULY, 1982 



3 




Sheldon Leemont Secretary 



Since May's minutes weren't published # I 
would like to mention the visits of our special 
out of town guests* Earl Rice and Mark Cator^ 
of Atari User Group supportf fielded 
questions from the floor for over an hour^ 
Another honored guest was David Smalli who 
writes the Outpost- Atari column for Creative 
Computing^ David was there to show off his 
new disk drive system for the Atari» which 
does not use the serial bus« and can therefore 
read files about 10 times faster than the 
Atari drives* He will be offering a 
dual-density model for about $870# with the 
special club discount* I did get a chance to 
see the drive after the meeting^ and it works 
as promised* Thanks to all of our guests* 

Also» I would like to mention that in May» 
awards were given to past officers^ and 
members who had displayed devotion to MACE 
above and beyond the call of duty* These 
included past officers Ashby Wolfe» Mark 
Davids^ and Jonathon EArlr software aces 
Craig Chamberlain» Tom Giese» and Sheldon 
Leemon» and general do-gooders Chet 
Gonterman, Don Goldsmith^ Todd Mitzner, 
Thomas Gilfillan, Russel Gill, Richard Schultz, 
Richard Gizynskit and Gretchan Levitan* 
MACE really appreciates the support our more 
active members have given in the past» and is 

looking forward increasing participation on 

the part of our new members* 

The June meeting was devoted entirely to 

setting up Special Interest Groups* A lot of 
enthusiasm was shown» and I'm sure we will 
all benefit from the chance to get together on 
a more intimate level than the mass-meeting 
madness* A full report on the SIGs will be 
published separately in ttee newsletter* lAich 
thanks to past-Prez Ashby Woolf for 
organizing the meeting* 

For July, we will be considering some 
constitutional amendments* As you may know# 
when the constitution was written about a 
year ago, MACE had less than 100 members* 
Nowf with about six times that many» we have 
outgrown some of the original provisions* The 
changes to be proposed will include* 



1) Changing the quorum requirements to a 

certain percentage of those living within 50 
miles of the meeting place to vote, and 
allowing those requirements to be amended by 
bylaw if necessary, without a new 
constitutional amendment* As more, 
out-of-state members join to get our fabulous 
newsletter, it might become difficult to get a 
quorum as presently stated* 

2) Likewise allowing the spending powers of 
officers to be amended by bylaw* With the 
newsletter costing over $1000 per month» and 
other expenses increasing with our 
membership^ we should have a flexible way to 
keep up* 

3) Adding new officers to the Board* I 
propose a SIG Liason to coordinate the Special 

Interest Groups activity, and splitting 
Secretary into Corresponding and Recording 
Secretary posts* The volume of mail has 
picked up terrifically, and it is hard to keep up* 

Those are the major items* All proposed 

amendments will be read in full at the next 
meeting, and will be voted on, so plan to 
attend* Q 



THE MOST IMPORTANT 
PERIPHERAL YOUIL EVER OWN 

Because the Michigan Atari Computer Enthusiasts 
provides you with information about your personal 
computer system. There are special interest groups 
in Forth, 6502 Assembler, Baste, Games, Education, 
Business Applications and more. Our monthly meet- 
ing offers exciting, informative presentations in the 
very latest hardware and software products, games 
and techniques. Our 24 hour Electronic Bulletin 
Board System becoming a standard for other Atari 
groups across the nation. A growing diverse local 
and international membership and award winning 
proprietary software — all dedicated to providing 
you with the finest Atari® user support system any- 
where. 

And don't forget M.A.C.E. Magazine — stimulat- 
ing, timely, and informative. Quality product reviews, 
interesting tutorials and 'how to do it' articles offer 
you page for page one of the most comprehensive 
Atari® related publications available. 

Why not give us a try? Your $15.00 membership 
also includes a subscription to M.A.C.E. magazine. 

Plug us in and boot us up! We think you'll agree that 
M.A.C.E. is the most important peripheral you'll ever 
own. 

Send check or money order to: M.A.C.E., P.O. 

Box 2785 Southfield, Michigan 48037. 
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Call (313) 647-3690 



The Center For: 

Data Cartridges 
Disc Storage/Filing Systems 
Rediform Business Forms 
Mi^l^netic Media 



Typewriter Ribbons 
Printer Ribbons 
Computer Forms 
Acco Binders 
Computer Furniture 
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Division of Moore Business Forms Inc 

30600 Telesraphr Suite 1 101, Birmingham, Ml 48010 



Moem FrifikMit Paper is Priced Right! Qualifies for Mix and Match Discount. 
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S.I.G. NEWS 



MACE has finally organized a number of 
special interest groups, so that members with 
common interests can meet more informally 
than would be possible at our hig, crowded 
general membership meetings* At our June 
meeting, a number of suggestions for groups 
were put forth by Ashby Holfe^ and members 
indicated their choice on a form* We then held 
the first meeting of thes^ groups, a leader 
was chosen for each# and a second meeting 
date and initial goal were chosen* 

The groups that registered were* 

XJXILIXIE3 

Manager* Charles Godfr#y 
Southfield 
559-1272 Home 
362-9110 Work 

BUSXISIJBSS SYSTEMS 

Manager^ Douglas Perenchio 
Warren 
776-7626 

H A. RD TaT jAl RE 

Manager** Chris Ratkowski 
Detroit 
532-5421 

EZDUCAXXOISI 

« 

Manager; Mark Davids 
St* Clair Shores 

774-9709 

GAMES 

Manager! Stephen Tobias 
Sterling Heights 

979-5740 

BASIC 

Manager; Jim Spitier 
Madium Hmglits 

543-0961 

Manager} Todd Meitzner 



Royal Oak 
542-1752 

C01>li=>XJXER SCIEMCE 

Manager* Gretchan Levitan 
Huntington Woods 
399-6964 

ISEElxr USERS 

Manager* Michael Winters 
Birmingham 

645-2193 

GRAPHIC S 

Manager; Ken Hein 
Utica 
254-1761 



There was also an Assembly-language 
programming group, but their manager 
neglected to register with Ashby* We hope 
that more information about that group will be 
forthcoming* 

As most of the groups will be holding 

meetings before this issue comes out, we are 
not printing meeting information here* The 
most up-to-date source of such information is 
the group manager* 

Of course, Mace is not limiting SIG groups 
to those formed at the last meeting* Any 
member who has an idea for a group> and 
wishes to propose the formation of that 
groups at a meeting is free to do so* 

One such group that the Board has 
suggested is a MACE special interest group* 
This group would be involved in doing tb# 
things necessary to make MACE the biggest 
and the best group around* Members would 
take on such key functions as contacting 
computer stores around the country in order to 
widen the distribution of the newsletters, 
putting together public domaiPi software that 
could be distributed by stores to computer 
purchasers, thus putting MACE more in the 
public eye» and organizing large-scale events^ 
like an Atari computer fair* Would you like to 
see MACE gain national prominence? Would 
you like to see the bi^#st Atari ^Mmputmr 
event in the country staged locally ? Then join 
the MACE SIG! Call Jerry Aamodti our Vice 

continued 
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President, for more details at 574-1020* 

In the futuret we hope to have meeting 

programs put on by the groups, newsletter 
articles reporting on SIG activites, and a 
network of "experts" to help members with 
problems in specific areas* These special 
interest groups will be one way of making 
MACE a club where all members have a chance 
to participate and make a meaningful 
contribution* 



Meeting Schedule* 
July 20»**f««Intermediate 
August 12«**«Beginners 
August 24****Intermediate 
September 9*tBeginners 



*♦* 



7:00 



For info call Jim Spitzer at 543H»M 



.emlDler- SIO 
July Meeting 
By Phil Heavin 



The SIGASM held its first meeting 
Thursday July Ist at the home of Jim Nixon* 
This meeting was mostly an organizational 
type meeting for us to discuss what we hope 
the SIG can accomplish* Tom Hunt led our 
meeting and did such a fine job that we 
volunteered him to be our leader for as long 
as he can stand it* Since I already had plans to 
write a few articles for this newsletter about 
ATARI'S new Macro Assembler, I volunteered 
to be the secretary to report our meetings to 
MACE* You can at least expect to read a 
short report each month about our meeting and 
the announcement of the next meeting* Other 
timm,l4imMm^M^%Mm our activities in more 
detail* 



to those who are getting their first exposure 
to assembly language with their ATARI* 
Because of this we plan to conduct 'dass' type 
sessions at the meetings on two different 
levels} The beginners level (What's an 'A' 
register and why do I want to LOAd it?) and 
an intermediate level for those who 
understand the mechanics of assembly 
language but want to learn how to use the 
beautiful graphics hardware of the ATARI* 

In addition to the learning and teaching 
projects we hope to develop some 
documentation and programing standards for 
assembly language programs submitted to the 
MACE library and develop utility type macros 
and subroutines for both assembly and BASIC 
programs* We will probably bm working to 
better define these goals in the next few 
months so suggestions from all MACE 
members will be considered* You don't have to 
want to write assembly programs to be able to 
luggest valuable programs that this SIG could 
add to the MACE library* 

The next SIGASM meeting will be Thursday 
August 5th at 7:00 PM at my home in Sterling 
Heights* Any interested MACE member is 
invited to attend* You may contact me at 
939-6213* O 





He found ttei* the level of experience in 
the SIG ranges from people who have been 
doing assembly programing for over 20 years 



When It Comes To 



Getting the best prices 
just liecame as easy 



iNtEUiV^SKXV 



HemaSjnw 



PAY LESS. 



ATARF 



GET 
MORE 



OYER ^oopRoams 

IN STOCK 



Software ^^^^ 

$24.95 



HIGH PERFORMANCE 
FLOPPY DISK 

ATARI 800 with 16K 
ATARI 400 with 1 6K memoiy 
ATARI 810 Disk Drive 



$669 
$289 
$449 



DISK DRIVE 

HEAD CLEANING 

KIT 



NOW 



EPSON 

EPSON AMFRICA INC 



maxelL 

i>MA i^<( UH.JS 
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SiAKER STREET 



By RidiAnl (Mzynski 

The following program is not a new game* 
It started out as a ten line» GRAPHIC 0 
program and grew so that I could show the use 
of several routines that put commas in 
numbers» center lines on a screent 
concantenate strings (join strings together)^ 
use artificial subscripted strings and 
subscripted variables* A variation of the 
routines that center strings can be used to 
turn March's "POOR MAN'S WORD 
PROCESSOR" into a more useful printer 
routine* 



Now well get into the program* Line 30 
DIMensions the variables* It also sets a value 
on the variable YES to 89 and NO to 78* These 
are the values that ar# returned by a GET 
statement for the letters T' and 'N'* To make 
programs that are user oriented # I often use a 
GET statement to get information from the 
keyboard* 

Line 40 has a technique sho%^ to us by Bill 
Wilkinson* It is a quick way of deaning a large 
string* In strings DIMensioned to 100 
characters i»r lMs> you might usei 

BLANKts** (100 spans) " 

But if you use a really long string » the line 
40 method cleans the string at machine speed* 
This is done by making BLANKf's first 
character a spacer opening up the string to its, 
full DIMensioned size and copying the first 
character into the second character position* 
The second character» now a blanks is copied 
into the third character position and so forth* 

Line 50 cleans the string NAME$» which 
will be used to hold up to five player names* 

Line 60 uses a variable 'C to carry color 
information to a subroutine at line 1360* This 
subroutine clears the screen and uses a 
SETCOLOR 4fC,2 to put tfie desired color on 
ttie screen in full (GRAPHICS 2^16) screen 
fnode* Then the subroutine RETURNS the 
program to line 70* 



Line 70 uses Y to carry the vertical 
position of the string LINE$ to a subroutine 

at line 1120* This subroutine finds out how 

long string LINE$ is - L£N(LINE$) - and 

subtracts its length from the 20 possible 

printing spaces available per line in 

GRAPHICS 2* The result is divided by two and 

the INTerger (whole number) is found* This 

gives a value for X which is the horizontal 

starting position for PRINTing the string* 

Une 1130 POSITIONS the cursor at tfie X and 

Y coordinates and line 1 140 PRINTs to divice 

*6 which is the code for the screen* The 

PRINT statement is abbreviated by using a 

'?'• Then the program RETURNS to line 80f the 

statement after our GOSUB on line 70* 

Line 80 sends us to another subroutine at 
line 980 that is used to GET keyboard 
information* By using subroutines like thist 
you can use one key to activate your program* 
You can also protect your program from an 
'illegal' entry or an entry that would catis« an 
error message to appear* The first working 
line of the subroutine POKEs location 694 
with 0* This insures that any previous 
pressing of the Atari (reverse letters) key is 
cancelled out* POKE 702^64 cancels out the 
accidental pressing of the caps/lower case 
key* I often close a Input/Output file before I 
OPEN it as on line 1000* If you try to OPEN an 
already open I/O filet you get>an error 
condition but to CLOSE a closed file causes no 
trouble* Line 1010 GETs the numeric value of 
the key pressed and 1020 RETURNS* 

LinM M)^100 compare the value in KEY to 
the variables YES and NO* If you pressed a 
'Y'f line 90 sends you to a series of print 
stiri»ments at lines 1390 to 1500* If you didn't 
press a 'Y% line 100 checks to see if any key 
other than a 'N' was pressed to protect 
against accidental entry* 

Lines 120-150 are similar to lines 60-80. 
They clean the screen and ask a different 
question* Line 160 is used to translate the 
key code value of the GET statement to a 
number that will be carried by the variable 
PARTICIPANTS* The smaller number is 
checked by line 170 to be sure it is within the 
range the game needs* Lines 200 to 220 do the 
same thing for selection the option that lines 
120 to 150 did for PARTICIPANTS* 

continued 
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A FOR-NEXT statement (230-250) is used 
to zero out the subscripted variable SCOREt 
When Atari reads the NEXT statement, it 
checks to see if you have gone through the 
loop the number of times specified in the FOR 
statement* If not, you are sent back to the 
beginning of the loop# Then Atari goes to the 
following statement, in this case, where 
GAMES is initalized* 

Lines 270 and 280 initialize PLAYER to 1 
and check that the current player number isn't 
greater that the number we want* If we exceed 
that number, no more names will be asked for 
and the program GOTOs to the main sequence* 
Then lines 290 and 300 clear the screen, ask 
for the current players name and initalize the 
string that will hold it* 

The loop that GETs the players names 
begins 310* Line 320 sets L to the current 
LENgth of string PLAYER** Before adding a 
character to the string, lines 330-350 check to 
make sure that it isn't a return or delete key* 
If a return key was pressed, line 330 causes 
the name held by string PLAYER*, to be added 
to the string NAME* using the subroutine 
starting at line 420* A delete key is detected 
by line 340 or 350 and deletes a letter frtm 
the string PLAYER* if PLAYER* has more 
than one letter or restarts the routine if it 
doesn't* Line 360 checks to see «iat the name 
doesn't already have the 10 characters that 
are allowed* Unes 370-3») check the letter to 
insure its a legitimate character afid add it to 
the string* Line 390 and 400 erase the last 
PRINT of PLAYER* and PRINT the new 
versiion* Line 410 send you back to line 310 to 
get another keystroke* All of lines 320 to 410 
were used instead of INPUT PLAYER* to 
protect against entry error* 



If the return key was prMsedi Una 420 
adds the string PLAYER* to the string NAME* 
by using the numeric variable PLAYER 
(without ttmW at ttie end) to deter^aiiw what 
part of string NAME* to put string PLAYER* 
in. Numeric PLAYER is multiplied by 10 and 
then, so we don't ¥WsHt the fk^t nine fioMible 
spaces of string NAME*, nine is deducted from 
the result* This gives the starting point in 
stromg NAME* i^iere string PLAYER* will be 
added* Then 430-440 increments the numeric 
variable PLAYER and sends the program back 
to line 280 to see if we have enough nMiest 



Line 460 starts the main loop by adding 
one to GAMES* Line 470 generates a random 
number 'RND(O)' and multiplies it by 9999* 
Numbers after the decimal point are 
eliminated by the function INTergert The 
random number that is generated can be so 
small that it is still less than one even after 
being multiplied by 9999 and the INTerger 
function would return a zero* A one is added to 
the number to avoid this* Line 480 initiates 
the HIGH and LOW possible choices and line 
490 sets the color and clears the screen* 

The numeric variable AMOUNT carri«m th# 
current value of HIGH to a new subroutine 
that inserts cxNfimas in numbers* At line 1060 
AMOUNT is put into the string TIMP* so that 
its length can be measured as in line 1070* 
Then TEMP* put into the string NUMBER* 
that will carry it back to a PRINT routine* The 
IF statement on line 1080 RETURNS us if 
TEMP* teiij^h iiwi only three digits* If there 
are more than three digits, line 1090 checks 
for up to six digits and adds a comma in the 
appropriate place by overwriting the second 
place from the end of NUMBER* with a comma* 
Then starting at one place from the last of the 
string NUMBERS*, picks up the part of TEMP* 
that starts two from the end of TEMP* length* 
This is a little confusing to people but very 
dew to Atari* Remember you are counting 
backward from the last character not the 
position after the last character* Line 1 100 is 
only activated if the number has more than 6 
digits* The command POP cancels out the need 
or ability to RETURN from this subroutine* 
Then LINE* carries a message to a subroutine 
that centers the mesage on the screen t holds 
it there long enough to read and then goes 
back to an early part of the main loop* 

Our comma subroutine should return us to 
line 510 which cleans string UNE* then makes 
it equal to the word "HIGH " and adding our 
new string NUMBER* to it* Then 520 sends us 
off to a familiar subroutine that centers and 
prints LINE* on the screen* Lines 530-550 do 
the same thing for the variable LOH* 

Lines 560 cleans the string PLAYER* and 
picks the current players name from the string 
NAME** Line 570 lets 10 character names 
bypass the next routine on lines 580-610 
which find the end of the players name by 
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using a FOR-NEXT loop to check for a space 
after the name and shorten the name 
accordingly* Remember^ 10 characters 
including blanks would have been picked up for 
the first four possible names# Lines 620-650 
center anil print tim name and the word 
'GUESS'* 

Line 660 sends us off to another 
subroutine at lines 1160-1340 that works on 
numbers like the routine at lines 300-410 
work for players names« After the variable 
GUESS is printed to the screen » lines 680-690 
check GUESS to make sure it was closer to the 
correct number # print a message if it wasn't 
and give the current player another chance* If 
the guess was in the correct range^ lines 
700-710 adjust the HIGH-LOH limits of 
choices and line 720 checks to see if the 
correct answer was given* If there was a 
correct answert the program goes to an ending 
routine* Otherwise the PLAYER number is 
incremented at line 730 and line 740 sends the 
program back for another guess« 



Lines 760-970 hold the end routine* 770 
decodes a win under option one» adds 1 to the 
current player's score and bypasses the option 
two results* If option two was chosen# the 
correct number gets a "SORRY* message and 
line 790-800 add one to all of the players 

scores and deduct one for the booby prize from 
the currant player* Line 810 leavies a short 

delay on the screen so either message can be 
read and 820 clears the screen* 

Lines 840-900 use another FOR-NEXT 
routine to pick each player's name from the 
string NAME* and put it and the player's 
score in string LINE$* Then the print position 
is incremented and LINE$ is printed by the 
subroutine starting at 1120* Line 910 holds 
the scores on the screen long enough for the 
players to read them and line 920 decides if 
one number has been presented for each 
player* If not 930 increments the player and 
line 940 recycles the guess routine* If th( 
game is finished lines 950-970 ask if you want 
to play again and act on your answer* Q 
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<313) 548 0533 



Tfie Computer Expre// 



ATARI 400/800 



FRCC €010109 




BUSINESS / PERSONAL 



TCE 

BUDGETMASTER Se CHECK BAL 26.99 

BUD6ETHASTER ti CHECK BAL 30.99 

DATA PERFECT 79.99 

DOW JONES INV. EVAL .... 95.99 

FILEMANA6ER 800 75.99 

LETTER PERFECT 109.99 

MAIL MERGE 22.99 

LETTER PERFECT + MM ....205.99 

PERSONAL FINANCE MAN6. . . 58.99 

VISICALC 189.99 

EDUCATION 

THE BIG MATH ATTACK .... 14.99 

COMPU-MATH: FRACTIONS .. 30. 99 

COMPU-MATHi DECIMALS ... 30.99 

COMPU-READ 3a. ^ 

COMPU-MATH: FRACTIONS .. 22.99 

COMPU-MATH: DECIMALS ... 22.99 

COMPU-READ 22.9^ 

FISHING FOR HOHONVim^«. 10.99 

6UESSM0RD 10.99 

INVITATION TO PROS. #1.. 19.99 

INVITATION TO PROG. #2.. 22.99 

INVITATION TO PROG. #3.. 22.99 

MATH FACTS-LEVEL I 10.99 

MATH FACTS-LEVEL II .... 10.99 

MATH FACTS-LEVEL III ... 10.99 

PRESCHOOL FUN 12.99 

SPATIAL RELATIONS 12.99 

SPEED READ PLUS 45.99 

WANTED 10.99 

WORDRACE 19.99 

WORD SCRAMBLE 10.99 

WORDMATE 10.99 



LIST 
34. 95 
39. 95 
99. 95 

1 29 . 95 
99 . 95 

150.00 
29. 00 

249. 95 
74. 95 

250. 00 



T=Tape K=Cartridge E- 



'Disk or Tap* 

■-mm 



K 



20.00 T 
39. 95 
39. 95 
59.95 

29.95 T 



29 .9P T 

t^7m T 




ELEPHANT DISKS 

SS-SD ^19. 99 
D8-DD ♦29.99 
« box of 10 

ELEPHANT T-SHIRT 

S,n,L,XL •4.99 

MAXELL DISKS 

W)l ♦33.99 
MD2-D ♦52.99 
a box of 10 



HEAD CLEANIN6 KIT 

♦21.99 List 29.95 

Di sicSavars 

T ^5.49 doz. 
T 

T BMC 13" COLOR 

T MONITOR M Audio 

T ^269 List 299 

T 

T BMC 12" GREEN 
T SCREEN MONITCHR 

T 

♦89 List ^99 

T 

Haysc SMartModem 

T 

T ^219 List 279 

BOO /kMlkQ. 

Connects an BOO 
to a Hi-Fi 7.99 



o 
o 



o 
o 



TOOLS / ENHANCEMENTS 



TCE 



LIST 



ASSEMBLER &S02 (T> 

ATARI WORLD 

BASIC A-t- 

THE BASIC COMPILER 

DATASM 65 2.0 

DISASSEMBLER 6502 ...(T) 

DISASSEMBLER 6S02 

DISKEY 

DISKMANA6ER 

EDIT 6502 <K> 

FORTH (QS) 

LISP INTERPETER 

MACRO ASSEMBLER «c EDITOR 

MICROSOFT BASIC 

OS/fit* 

PILOT (K> 

SOFTERM 



19.99 

45. 99 
59.99 
73.99 
69. 99 
8. 99 
10.99 
37. 99 
21 . 99 

165.99 
59. 99 

109. 99 
69.99 
69. 99 
59.99 
64.99 
37.99 



24.95 

59. 95 
80.00 
99.93 
89. 00 
1 1 . 95 
14.93 
49. 95 
29. 95 
199. 95 

79. 95 
150. 00 

89.95 
89. 95 

80. 00 
79.93 
49.93 



ACCESSORIES 

TECHNICAL USER NOTES ... 22.99 

ADVENTURES 1-12 HINT BOOK 6.49 

JOYSTICKS (pair) 15.99 

PADDLES 15.99 

LE STICK (SALE) 25.99 

GRAPHICS TABLET 238.99 



29.95 

7. 95 
21 . 95 
21.93 

39. 95 
299. 00 



C. ITOH PRO/WRITER 

- 120 cps Bi-Dir, Logic Seeking 

- Friction Sc Tractor Standard 

- N X 9 Matrix 

- 8 Character sizes 

- Proportional spacing 

- Bit tt Block Sraphics 

- Greek Symbols 

- Mix Text & Graphics 

ASK FOR FACT SHEET /PR I NT SAMPLE 



« PARALLEL ^499 
i mit AL 0639 



List ^795 




SISNALMAN MK I I 

MODEM 
-Direct Connect 
-300 bps F.DPLX 
-Cable included 
-Talk/Data Swt . 
♦87.99 Lift M.V5 




C. ITOH 
STARWRITER FIO 
-LETTER QUALITY 
-40 cps 
-Diablo Daisy 

Wheel It Ribbon 

Compat i b 1 e 
-15" Carriao* 

♦ 1499 « List ims 




FLIP 'N' FILE 

DISK CASE 
-Holds 30-60 
-Hi nged Lid 
-Index Dividers 

«?i.p W Hitt :^.«5 




TCE LIST 
ADVENTUR ON A BOAT 19.99 24.95 
ADVENT. 1-12 (T)ea 13.99 19.95 
ALl BABA & 40 THVS 24.99 32.95 

ANDROMEDA 26.99 34.95 

ANGLE WORMS . . . <T) 10.99 14.95 
ARCADE PRO FOOTBAL 26.99 Z4.95 

ASTEROIDS (K) 27.99 34.95 

B-1 NUC. BOMBER (T) 11.99 16. CO 
CANYON CLIMBER (T) 19.99 24.95 
CAVERNS OF MARS .. 29.99 39.95 

CHICKEN (T) 19,99 24.95 

COMP STOCKS &BONDS 15.99 21.00 
CONFLICT 2500 . <T) 11.99 16.00 

CONTROLLER 22.99 30.00 

CROSSFIRE (E) 22.99 29.95 

CRYPTS OF TERROR . 26.99 34.95 
DATEST0NE8 RYN <E) 14.99 19.95 

DEADLINE 37.99 49.95 

DELUXE INVADERS .. 26.9<^ 3#.9S 
DODGE RACERS ..(E) 22.99 29.95 
EMPIRE OVERMIND .. 26.99 35. OO 
EMPIRE OVERMIND(T> 22.99 30.00 

FASTGAMMON (T) 14.99 19.95 

GALACTIC EMPIRE (T) 14.95 19.95 
GALACTIC TRAOER(T> 14.95 19.93 

GALAXY 19.99 25.00 

GHOST HUNTER 26.99 34.93 

GHOSTLY MANOR 19.99 24.93 

GOMOKU (T) 14.99 19.95 

INVASION ORION (E) 19.99 24.95 
JAWBREAKER ....(E) 22.99 29.95 
LORDS OF KARMA (T) 14.99 20.00 
LUNAR LANDER . . (T) 10.99 14.95 

MATCH RACERS 22.99 2«r.9# 

MIDWAY CAMPAIGN (T) 11.99 16.00 
MIND-B06GLERS 1(E) 11.99 15.95 
MISSION ASTEROID . 19.99 29.93 
MISSLE COMMAND ... 27.99 34.95 
MOUNTAIN SHOOT (T) 10.99 14.95 

HOUSKATTACK 26.99 34.93 

NAME THAT SONS (T) 10.99 14.95 

NUKEWAR (T) 11.99 16.00 

PAC MAN <K) 32.99 44.93 

PLANET MINERS . (T) 11.99 I4.00 



TCE LIST 

POKER SOLITARE ... 19.99 24.95 

REAR GUARD 19.99 24.95 

REAR GUARD . . . . (T) 14.99 19.95 
RESCUE AT RIGEL(E) 22.99 29.95 

REVERSI (T) 14.99 19.95 

SHATTERED ALLIANCE 30.99 39.95 
SOFTPORN ADVENTURE 22.99 29.95 
SPACE INVADERS (E) 27.99 34.95 
STAR RAIDERS . . (K> 33.99 44.95 
STAR TREK 3.5 . <T) 14.99 19.95 
STAR WARRIOR ..(E) 30.99 39.95 
SUNDAY GOLF . . . (T) 10.99 14.95 
SURVIVAL ADVENT <E) 19.99 24.95 

TANKTICS (T) 18.99 24.00 

TREASURE QUEST (T) 14.99 19.95 
TUMBLE BUGS ...... 22.99 29.95 

ULYSSESS S( 80LDEN. 26.99 34.95 

VOYAGER 19.99 25.00 

MARLOCK*S REVENGE 26.99 35.00 
WIZARD tc PRINCESS. 25.99 32.95 

ZORK I 30.99 39.95 

ZORK II 30.99 39.95 

NEW OR AVAILABLE SOON 

ALIEN SWARM CALL 

BATTLE OF SHILOH . CALL 

CENTIPEDE 32.99 44.95 

CLOWNS l( BALLONS . 22.99 29.95 

CYCLOD 22.99 29.95 

DAVIDS MIDNI8T MAS CALL 
DR. GOODCODES CAVE CALL 

DRAG ON'S EYE 22.99 29.95 

eORF ............. 30.9¥ S9;"*I'S 

NAUTILUS CALL 

NIGHT RALLY 26.99 34.95 

PATHFINDER 26.99 34.95 

PREPPIE 22.99 29.95 

SLIME CALL 

STAR BLAI^ ...... CULL 

TIGERS IN THE WOW CALL 

TRACK ATTACK 22.99 29.95 

ULTim I 30.99 39.95 

MIZARD OF WQR .... 30.99 39.95 




o 

o 

3 




DISK DETErCTIVE * ± - LIST 29.95 

CYR-MEIRBOWL- ^33 - (T> LIST 49.95 

-TMFiEOMOI-D *32» - LIST 39.93 



S LJ M M E 



IM 



THE IMEXT pX^e 
3— D SLJr»EIRC3R#^f»M I Cfl» 



3255- LIST 39.95 

i^r^ <«) LIST 3f.95 
LIST 24.93 
LIST 19.99 



«IMY OAME BEl_OM F^OFt ♦ 1 «^ . LIST 29.95 

F>ACXR'XC COAST M 1 61-IMA Y (E> 

CifOflMH of%umbl.e: ciHOMr» (E) 

RAS-TER BLASTER (D> 
CAIMYOIM CL- I MBEF* (D) 
AF>F>I.E F>ANZC (D) 
R>OG 

T»Tap« D«Dlsk E«Eith«r 



R>001- 1. . 9 (D> 
iais 900d until 8/13/82 
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10 REM »♦# NUMBER CHOICE #»» 

20 REM *** BY RICHARD GIZYNSKI ##* 

30 DIM PLAY£R$(10)»NAME$(50)»SCORE(5)» 

NUMBER$(10),BLANK*(50)»TEMP$(10)»LINE* 

(20),GUESS$(10)JYES=89JNO=78:DELAY=200 

40 BLANK* = " "{BLANK$(50)= " 

"!BLANK«(2»50)sBLANK* 

50 NAME$=BLANK$ 

60 C=4{G0SUB 1360JY=3JLINE»="DO YOU 
HANTN'GOSUB 1120 

70 Y=4{LINE*="INSTRUCTI0NS[ Y/N3 ":G0SUB 
1120 

80 GOSUB 980 

90 IF KEY=YES THEN GOTO 1390 

100 IF KEYONO THEN GOTO 60 

1 10 REM •««* KOH MANY FLAYERS «««« 

120 C=9:G0SUB 1360:POSITION 3,4 

130 y = 4:line* = "how many 
players"}gosub 1120 

140 y=5jline*="are there cl-53"jgosub 

1120 

150 GOSUB 980 

160 PARTICIPANTS=KEY-48{? CHR*(KEY) 
17 0 IF PAR TIC IP A N T S < 1 OR 
PARTICIPANTS>5 THEN 120 
180 GOSUB 1360 

190 REM **« WHICH OPTION ♦«» 

200 POSITION 3,41? #6rOPTION 1 OR 2" 

210 GOSUB 980JOPTION=KEY-48 

220 IF OPTION<l OH OPTION>2 THEN 180 

230 FOR 1=1 TO PARTICIPANTS 

240 SCORE(I)=0 

250 NEXT IJGAMES=0 

260 REM #*# GET PLAYER'S NAMES ♦«» 

270 PLAYER=1 

280 IF PLAYER^PARTICIPANTStl THEM 
PLAYER»l{GOTO 450 

290 c=9:gosub 1360:POSITION 2,4J? 

#6rWHAT IS PLAYER "}PLAYER;"'S NAME! "} 

300 PLAYER$=BLANK$JPLAYER$="" 

310 GOSUB 980 

320 L»LEN(PLAYER$) 

330 IF KEY=155 THEN 420 

340 IF KEY=126 AND L<2 THEN POSITION 

8^{? #6r "{GOTO 300 

350 if key=126 then 
player*=player*(i,l-i):goto 390 
360 if l=10 then ? #6}" too many 
lettersf"jdelay=200{gosub 1040jgoto 280 
370 if keyc65 or key>90 then goto 310 

380 PLAYER«<L^l)sCHR»(KEY) 

390 POSITION 8,5J? #6;BLANK* 
400 POSITION 8,5}? #6iPLAYER$ 
410 GOTO 310 



420 llAMEf(IlJkTS««10-9)sPLAYER» 

430 PLAYER=PLAYER+1 
440 GOTO 280 

450 REM ««• MAIN L€X}P 

460 GAMES=GAMES-H 

470 NUMBER=INT(RND(0)*9999)+1 
480 HIGH»10000iLOH»0 

490C=4:GOSUB 1360 

500 AM0UNT=HIGH:G0SUB 1050 

510 LINE$sBLANK«:LINE««''HI6H 

"JLINE$(6)=NUMBER$ 

520 Y=1:G0SUB 1120 

530 AMOUNTsLONiGOSUB 1050 

540 LINE$ = BLANK*{LINE* = "LOW 

"{LINE*(5)=NUMBER* 

550 YslOiGOSUB 1120 

560 PLAYER««BLANK«iPLAYER$« 

NAME$(PLAYER#1 0-9) 

570 IF LEN<PLAYER»)slO THEN GOTO 620 

580 PLAYER«(10)=" "IL-OJEOR 1=1 TO 10 

590 IF PLAYER$(I,I)=" " THEN Lrl-lJPOP 

:GOT0 610 

600 NEXT I 

610 PLAYER*=PLAYER*<1,L) 

620 UNE««BLANK«!UNE«=PLAYERt 

630 LINE$(LEN<LINE$H1)=-'S" 

640 Y=4:G0SUB 1120 

650 POSITION 7|5i? *6rOUESS" 

660 GOSUB 1 160:REM GET NUMBER ROUTINE 

670 REM *♦* CHECK ANSWER ♦*« 

680 IF AMOUNT>«HIGH THEN UNB«« "TOO 

HIGH"JGOTO 1370 

690 IF AMOUNT<=LOW THEN l.INE*="TOO 
LOW'XiOTO 1370 

700 IF AMOUNT<NUMBER THEN 
LOW= AMOUNT 

710 IF AMOUNT>NUMfi£R THEN 

HIGH=AMOUNT 

720 IF AMOUNT=NUMBER THEN GOTO 760 
7 3 0 P L A Y E R = P L A Y E R + 1 { I F 
PLAYER>PARTICIPANTS THEN PLAYER»1 
740 GOTO 490 

750 REM »«* ENDING ROUTINE *** 
760 LINE*=BLANK* 

770 IF OPTION=l THEN LINE*="YOU WIN"J 

SCORE(PLAYER)»SCORE<PLAYER)+l :Y=7J 

GOSUB 11 20JGOTO 810 

780 UNE$="S0RRY»JLINE*(7)=PLAYER*1 

Y=7JGOSUB 1 120{LINE»»"THAT'S THE 

NUMBER":Y=8{G0SUB 1120 

790 FOR Isl TO PARTICIPANTSlSCCmaK 

SCOREaHUNEXT I 

800 SCORE{PLAYER)=SCORE(PLAYER)-l 
810 DELAYs200:GOSUB 1040 
820 GOSUB 1360 



continued 
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830 REM PRINT THE SCORES *** 

840 FOR 1=1 TO PARTICIPANTS 

850 LINE«=BLANK$ 

860 PLAYER$=NAME»(HH0-9) 

870 LINE$«PLAYER$ 

880 LINE*(12)=STR$(SC0REa)) 

890 Y=I+2JG0SUB 1120 

900 NEXT I 

910 DELAY=400!GOSUB 1040 

920 IF GAMES=PARTICIPANTS THEN 950 

930 PLAYER«PLAYER4-ltIF n^YER> 

PARTICIPANTS THEN PLAYER=1 

940 GOTO 460 

950 y = y + 2jlime»»"pxay again 

[y/n]":gosub 1120 

960 GOSUB 980:iF KEY=YES THEN RUN 
970 END 

980 REM *** GETTING KEYBOARD INPUT 
990 POKE 694,0JPOKE 702,64 

1000 CLOSE *2X3PEIi #3f4»0r''J»'' 
1010 GET #2,KEY 

1020 RETURN 

1030 REM «•«* TIMING SUBfiOUTINE #*» . 
1040 FOR 1=1 TO DELAY5NEXT IJRETURN 
1050 REM *##* COMMA SUB #*#t 
1060 TEMP>»STR»<AMOUNT) 
1070 L=LEN(TEMP*) 

1080 NUMBER$=TEMP$:iF L<4 THEN RETURN 
1090 IF L<7 THEN NUMBER»(L-2)«",-! 
NUMBER*(L- 1 )=TEMP$(L-2):RETURN 
1100 POP {LINE* = ':OOPS-TOO MANY 
DIGITSJGOTO 1370 

1110 REM #*# CENTER SUBROUTINE ♦*« 
1120 X=INT((20-LEN(UNE$»/2) 
1130 POSITION X,Y 
1140? #6JLINE» 
1150 RETURN 

1160 REM *** INPUT AND PRINT NUMBER 

1170GUESS$=BLANK$ 

1180GUESS*="" 

1190 GOSUB 980 

1200 REM ♦#*CHECK FOR DELETE-RETURN 
1210 IF KEY=126 AND LEN(GUESS$)<2 THEN 
GUESS$-''"ail»fBERMBLAIHCMGOTO 1300 

1220 if key=126 then guess$=guess$ 
(i,len(guess*)-i):goto 1270 

1230 IF KET-155 THEN RETURN 

1240 KEY=KEY-48 

1250 IF KEY<0 OR KEY>9 THEN 1190 

1260 GUESS»<LEM(GUE88tH*l)>>&TR»aCEYI 

1270 AMOUNT=VAL(GUESS$) 

1280 GOSUB 1060 

1290 PDSmON 0,6 

1300 ? #6JBLANK* 

1310 X>INX((20-LEN(NUMB£R»))/2) 



1320 POSITION X,6 

1330 ? *6;number$ 

1340 GOTO 1190 

1350 rem ««« set graphics & color 
1360 graphics 2 + 1 6 : s e t c o l o r 
4,c,2:return 

1370 Ys7:GOSUB 1120:DELAYs200:GOSUB 

1040IPOSITIONO,6{?#6}BLANK»;BLANK*: 

goto 490 

1380 REM ««« INSTRUCTIONS *** 
1390 GRAPHICS 0 

1400 POSITION 12,0 

1410 ? "INSTRUCTIONS"}? 17 "ENTER THE 
NUMBER OF PLAYERS AND PLAYER"} 
1420 ? "NAMES WHEN REQUESTED. ATARI 
KILL PICK":? "A NUMBER AT RANDOM FROM 
1 TO 9,999" 

1430 ? {? "OPTION ONE ~ BE THE FIRST TO 
GUESS"!? "THE NUMBER ATARI HAS 
SELECTED" 

1440 ? J? "OPTION TWO ~ MAKE SOMEONE 
ELSE";? "GUESS THE NUMBER"}? 
1450 ? "ATARI WILL TELL YOU IF YOU ARE 
TOO"}? "HIGH OR TOO LOW* IN BOTH 
OPTIONS YOU" 

1460 ? "MUST GUESS CLOSER TO THE 
CORRECT"}? "NUMBER. AFTER THE CORRECT 
NUMBER IS" 

1470 ? "GUESSED, ANOTHER NUMBER IS 
PRESENTED."}? "THIS CONTINUES TILL A 
NUMBER HAS BEEN" 

1480 ? "OFFERED FOR EACH PLAYER."}? }? 
"ATARI WILL ADD COMMAS TO YOUR 
NUMBERS" 

1490 ? "SO PLEASE DON'T TYPE THEM IN."}? 
}? "PRESS ANY KEY TO CONTINUE"} 
1500 GOSUB 980}GOTO 120 q 



M.A.C.E. 



The original articles that appear in M.A.C.E. may be reprinted without 
permission by school and college publications, personal computing club 
newsletters and nonprofit publications. Each article reprinted must carry 
a notice to the effect that it is a reprint from M.A.C.E. and give credit to 
the author. © 1982 

Michigan Atari Computer Enthusiasts is a club and users group and is not affUiated with the Atari 
Company, a Division jaf Warner Communications Inc. 
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by linda Peckham 



A coupU of ¥immk& agOf I bought a couple of 
fi»«# #l#ctrofiic toy«# No» I didn't buy a 

hand-held game. I didn't buy a computer game, 
either* In fact, the toys aren't games at alL 
HlMit did I buy? WeUi just keep reading* 

You knowf toys are wonderful things, even 
when smmof ttmm cost quite a bit of money* 
Especially when they do more than just play 
games* I'm not much on playing games* (A 
ten-year-old kid with hyper-reflexes I'm not!) 
But a toy that will cater to my hobbiest now 



*** 



I started my electronic toy collection a bit 
more than a year ago* (If you don't know what 
"toy" I'm talking about, why are you reading 
this newsletter?) I didn't buy everything at 
once, of course* (I don't make that much 
money!) I started with the central "brains" of 
my collection » and gradually added to it* By 
the end of the year, I had a reasonably hefty 
collectiont and one of my hobbies was zipping 
merrily along* 

But the other one *** well, it was still in 
the primitive stage» despite the capability of 
my toys* What good is a coloring book, if you 
have to write down exactly how each line 
goes? So» I bought some instructions to tell 
the "brain" how to turn the rudder-controls of 
a starship into an electronic pencil* I bought 
''Graphics Composer*" 




My doodler's heart was delighted* 
Triangles, rectangles, circles, images and 
fancy patterns, all blazed into colorful glory 
on my glass tube* No more eraser-smeared 
paper, no starting over when one small item 
was out of place* Change colors, even reverse 
the entire picture, with a couple of 
keystrokes* Save and redo the picture, over 
and over again, and it still looks as clean as 
when I began* 

But, there were a few problems* Sure, I 

could retrieve my pictures when ever I wanted 
to* But how could I show my friends the 
results of my work? Lug all my toys around in 
a couple of suitcases??? I may like my 
pictures, but that good they're noti What I 
needed was a way to transfer those images 
from the glass-tube to tbe old stanilby — 
paper* 

The first step, of course # is to t#ach the 

paper-eating toy some new trtefc«ii I 
persuaded it to munch on a trio of black 
rectangles with silver legs* That was better, 
but it was back to the "write - datw^*Nw - 
to - draw - a - line" syndrome* I needed 
another set of instructions to translate the 
patterns on the tube to patterns on paper* 
Enter Datasoft, and "Color Print*" 

COLOR?! Yep, color! It i» a bit 
awkward; after all, the paper-muncher only 
thinks in one color ~ black* What Color Print 
does is take the picture, and figure out what 
color gets printed where* What you do is take 
CMieof the carbons (included in the package), 
and slip it in between two sheets of folded 
paper* The tricky part is making sure the 
paper goes back into the muncher in the exact 
same place everytime* When you're ready, tell 
Color Print, and it will send the muncher 
screeching and buzzing down the page* Repeat 
the process* And, voila! Colored pictures, 
without multi-thousand-dollar paper 
munchers! Tired of messing with color? Tell 
Color Print that, and it will cheerfully ask the 
muncher to bang out all the colors at once, in 
glorious black - and - white* 

So, with Color Print, I've come full circle* 
I started off with paper and pencil, and I'm 
back to paper* My "glass-tube coloring-book" 
kit isn't as agile as it could be* The "Graphics 
Composer" doeei^'t liave thjaw|-4Amensional 
(drawings) capabilities* And that 
rudder-controller I mentioned? Eight axes of 
motion just isn't enough* 

continued 
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I'll probably be adding to my toy kit» 
Datasoft's been advertising three drawing 
packageSf If I wanted to splurge, I'd get the 
light-pen, or the digitizer-pad ### I wonder 
how a trackball would work with "Graphics 
Composer" ? *«* aren't toys wonderful ? 



notes: 

i 

GRAPHICS COMPOSER is produced by 
Versa Coniputing» Inct It comes on disk or 
cassette, and is composed of five main 
programs* It draws in Graphics 7 or 8, with 

joysticks or paddleik 

The files produced by the above are not 
compatible with Color Print* However^ it is 
? easy to load the picture with the Basic 
subroutine provided by the Composer, and then 
load the Color Print main program* 

^ COLOR PRINT comes on (protected) 

diskette only, and works with the Epson 
MX-80 and NEC~8023 printers* Carftons are 
provided, and refills are available* 

CHAOTIC RXJMBLIISIGS 

Hello, 

You are now hearing from that lucky weight 
upon whom the onerous and timely burden of 
communing with the MACE newsletter has 
fallen* All seriousness aside, I am the 
president of the Lansing Area Computer 
Enthusiasts, or something to acronym LANCE, 
but LANCE already has a DBA in Michigan, and 
50 does SMAUG, so we are now CHAOS, or 
( something similar if wm can get the DBA from 
I the Secretary of State, so we are Capital Hill 
I Atari Owners Society, so CHAOS seems 
^ somehow appropriate* 

If you push something hard enough it can 
really move (or fall over)* Our local ''.ub is 
about six months old, * iid by the time we had 
rec"*ved your May issue, discussing the 
confab over opening local chapters, we were 
one, thanks to some fast negotiating on the 
parts of Arlan Levitan and our own Ike 

j Hudson* The vote for chapterhood-izationness 

; was unanimous* 



The "paper-muncher" is the MX-80, with 
the new Graphtrax-Plus ROM set* The Plus 
adds new fonts and (according to Datasoft) 
faster bit-graphics (compared to Graphtrax)* 
The documentation is a spiral-bound notebook 
which includes the original documentation, 
plus new material* It also includes a special 
section on the Atari software differences* q 




So, who are we anyhow? He are CHAOS# 
and we m#»t the second Saturday of each 
month in room C-1 00 Weils Hall, MSU* We're 
new, and our average attendance at meetings 
runs about 25 people* The way we've been 
growing, we may have to move to a larger room 
next Fall* Meetings start around 9J00 AM for 
general B*S* and impromptu program 
demonstration, with the actual business 
meeting happening sometime around lOiSO* 
Presentations/demonstrations of a more " 
general nature occur at lOJOO and IIJOO* At our 
August 14 meeting, Brian Goluska will 
demonstrate printing graphics from the 
screen, including GRAPHICS 8* 

Assuming that I am not impeached for the 
lighthearted way I handle our communications 
(or their is a coup), you will be hearing more 
from us on a monthly basis* Several of us are 
planning to regularly attend the MACE 
meetings, so we may soon get to know each 
other better than as little dots on paper* 

Gregory W* Barr 
President of CHAOS 
PO Box 1343 

East Lansing, Mich* 48823 

(517)337-8320 
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ATARI SEQUENTIAL 

MEMORY FILLER 

(My First 
Assembly Language PVogram) 

By M. L* CLAYTON 

ATARI Basic provides the user a fill 
function for graphics map mode but there no 
equivalent function for machine memofy« 
Described here is a machine language routine 
to be used in ATARI Basic which sequentially 
fills consiiaitive ram location mith an integer 
from 0 to 255* 



The only alternatives to this routine in 
ATARI Basic m pokM in a "FOR-NEXT** loop 
(which is slow)t and string assignments (which 
is memory inefficient and requires variable 
and array pointers to bm alt«r«d)« 

For those who keep track of such things^ 
this routine requires thm use of page zero 
memory locations $D0 and *dl (208# 209)> and 
the last two bytes of page six, $6FE (1790, 
1791)t 

The coded string can be generated by 
typing the ATASCII character representation 
of the 56 numerical data values below* 



Because the routine is relocatable and only 

56 bytes in length} I usually place the code 
into a string and use the ad^^ess of the string 
as infHit to ^ 0SR call* 

example call would be* 

100 FILL = USR(ADR (FILLSTR$) , LOW, 
HIGH, VAL) 

where: 

LOW=256+(PEE(106)-4) — Points to 
memory location IK below ramtop* 

HIGH=LQW+1023 — Points to last 
location before ramtop* 

VAL=0 — Value to be inserted into 
specified locations 

FILLSTR$="**#the 56 chara- 
cters appear here 



Also the routine can poked into any 56 

free memory locations such as in page six of 
memory* 

10 PAGE6 = 1536: FOR I = PAGE 6 TO PAGE6 

+ 55 { READ N { POKE I,N : NEXT I 

20 DATA 104, 104f 433r 209* i04» 133, 208, 

104, 141, 255, 6, 104, 141, 254, 6 

30 DATA 104, 104, 168, 162, 0, 152, iZ9, 208, 

56, 1 73, 254, 6, 229, 208, 20& 

40 DATA 8, 173, 255, 6, 229, 209, 208, 1, 96, 

24, 169, 1, 101, 208, 133, 208 

50 DATA 169, 0, 101, 209, 133, 209, 169, 0, 

240, 220 

Then the call would be! 

100 FILL=USR(1536,LOW,HIGH,VAL) 



The call would instantly clear the ram 

reserved for double line resolution 

player-missile graphics* 
A stAtcmpit of the ^rmat 

100 FILL=USR(ADR("*«#*»*")# 
LON,HIGH,VAL) 

with the string io^eded in the statement will 
also work. If the previous statement is 

modified to be a subroutine i,et, 

1 00 FILL=USR(ADR("****"), 
LOW,HIGH,VAL)}RETURN 




then a statement in the following format will 
suffice* 



1954 GOSUB 100 



I 

I 



DISCOUNT ACCESSORIES 





Check Programs Desired 


^Many 








YOUR 


ADVENTURE INTERNATIONM 


LIST 


DDIf^C 


□ 


Star Tr«k 3.5(d) 


24.95 


ia AA 
le.uu 


□ 


Lunar Lander {4) 


19.95 


IB 00 


□ 


Rear Guard (d) 


24.95 


ia 00 

IV* w 


□ 


Adventure ^1 - Adventureiand (t) 


19.95 


IB 00 

1 V. WW 


□ 


Adventure #2 - Pirate's Adv (t) 


19.95 


15 00 


□ 


Adventure #3 - Mission Imposs (t) 


19.95 


15.00 


□ 


Adventure 04 - Voodoo Castle (t) 


19.95 


15.00 


□ 


Angle Worms/Crolon Qivwrsion (t) 


14.95 


11 00 


□ 


Deflection (t) 


14.95 


II 00 

III w 


□ 


Mountain Shoot (t) 


14.95 


11 00 

II* WW 


□ 


Treasure Quest (t) 


19.95 


15 00 


□ 


Rear Guard (t) 


19.95 


15 00 


ATARI INCORPORATED 






□ 


Word Processor (d) 


149 95 


100.00 


□ 


Personal Finance Management (d) 


74 95 


54.00 


□ 


Caverns of Mars (d) 




29.00 


□ 


Invitation to Programming 2 (t) 




21.00 


□ 


Invitation to Programming 3 (t) 


29 95 


21.00 


□ 


Conversational French (t) 


59.95 


44.00 


□ 


Conversational German (t) 


mm f\ 0\ mm 

59.95 


M M AA 

44.00 


□ 


Conversational Italian (t) 


59.95 


44.00 


□ 


Conversational Spanish (t) 


59.95 


44.00 


□ 


The Programmer Kit (c) 


79M 




□ 


The Entertainer Kit (c) 


ne.7s 


ii.00 


□ 


Asteroida (€l 


44.96 


^.00 


□ 


Assembler Editor (c) 


aip.ao 


44.00 


□ 


Atari Basic (c) 


S9.9S 


4I4.00 


□ 


Space Invaders (c) 


44.95 


33.00 


□ 


Missile Command (c) 


44.95 


33.00 


□ 


Star Raiders (c) 


49.95 


36.00 


□ 


Centipede (c) 


44.95 


33.00 


□ 


Pac man (c) 


44.95 


33.00 


ARCADE PLUS 






□ 


Ghost Hunter (d) 


34.95 


25.00 


□ 


Ghost Hunter (t) 


29.95 


21.00 



More Available at Discount Prices 



ARTSCI 

□ Poker Solitare (d) 

□ Gomoku (d) 

□ Reversi (d) 

□ Poker Solitare tt) 

□ Gomoku (t) 

□ Revw## 



24.95 
29.95 
29.95 
14.95 
19.95 
19.95 



18.00 
21.00 
21.00 
11.00 
15.00 
15.00 







YOUR 


AVALON HILL GAME COMPANY 


LIST 


PRICE 


□ Conflict 2500 (t) 


16.00 


12.00 


□ Planet Miners (t) 


16.00 


12.00 


□ Lords of Karma (t) 


20.00 


15.00 


□ Empire of the Overmind (t) 


30.00 


21.00 


□ Tanktics(t) 


24.00 


17.00 


□ Computer Stocks & Bonds (t) 


16.00 


12.00 



BRODERBUND SOFTWARE 

□ Apple Panic (d) 

BUDGECO 

□ Raster Blaster (d) 

CAVALIER 

□ Bug Attack (d) (t) 

COKmirSH MM^ LTD. 

□ t^iyoa m it) 

DATASOFT 

□ Atari Mailing Lis (d) 

□ Text Wizard (d) 

□ Dung Beetle (d) 

GEBELLI 

□ Match Racers (d) 

□ Andronnada (d) 

□ Pathfinder (d) 

INNOVATIVE DESIGN 

□ Pool 1.5(d) 

JV SOFTWARE 

□ Actkm Quest (d) (t) 

KBYTE 

□ K-Razy Shootout (c) 

ON-LINE SYSTEMS 

□ Crossfire (d) (t) 

□ Mousekattack (d) 

□ Jawbreaker (d) (t) 

□ Threshold (d) 

□ Frogger(d) 

SYNERGISTIC 

□ Warlock's Revenge (d) 



29.95 


21.00 


29.95 


21.00 


29.95 


21.00 


34.95 


25.00 


24.95 


18.00 


99.95 


75.00 


29.95 


21.00 


29.95 


21.00 


3iJS 


29.00 


34.95 


25.00 


34.95 


25.00 


29.95 


21.00 


49.95 


36.00 


29.95 


21.00 


34.95 


25.00 


29.95 


21.00 


39.95 


29.00 


34.95 


25.00 


35.00 


25.00 



WE DEAL IN BUSiNESS*EDUCATION*ENTERTAINMENT SOFTWARE 

□ ATARIJOYSTICKS □ SANYO 13 INCH □ ZENITH ZVM-121 □ VERBATIM DATALIFE 

Color Monitor Green Monitor Box of 10 Disks 

»8 »425 '120 »26 

CREDIT CARD ORDERS ACCEPTED BY PHONE 4 PM-7 PM DAILY MONDAY THRU FRIDAY 



□ PLEASE SEND THE PROGRAMS CHECKED 

□ PLEASE SEND THE ACCESSORIES CHECKED 

□ PLEASE SEND FREE CATALOG DRIVE - □ QISK □ CASSETTE 

NAAAE 

ADDRESS ' ^ 

STATE 



ZIP. 



AAAT. ENCLOSED. 



CHARGE MY □ VISA □ MASTERCARD # 
FXPI BK SIGNATURE 



MtfGS. TRADEMARK 



STROM 

f> » SYSTEMS INC. 

P.O. Box 197 

Plymouth, Mi. 48170 
(313) 455-8022 

Send check or money order for 
total purchase price, plus S2. 
postage handling. Mtctrigon 
Residents add 4% tax - C.O.D. 
add $5. 



MIONIGHT STRIFE 
By M* Lt CL4YTON 

This program requires 24 K RAM system 
fmxsmmmttB and a 32K RAM system for disk* 
It is a simulation of a trip down an Obsticle 
race course as viewed from the drivers seat* 
It mmmmthmr paddle or joystick input and is 
independent of keyboard interaction* 

There has timm a small attempt at program 
documentation due to the limited space 
available in MtA^C^E* magazine* The code has 
liMfi somewhat 4»ptimized for a balance of 
speed and flash in a minimum of memory^ 
therefore it appears that the listing is all 
sctuMZftd together; this arrangement can be 
altered* Many things can be altered or 
modified such as the creation of a braking 
routine (joystick pull back or unused paddle 
trigger) or passing objects (trees or cars)» 
using the unused player^ or coverting the work 
loop into machine* Hith the limited time 
available to me# I've attempted to create a 
workable (and fun to play) program for 
beginning and intermediate BASIC 
programmers to be understood and tailored to 
each users likes* 

This program was originally designed for 
paddle input* Joystick input was added as an 
afterthought^ so to keep play consistant for 
both controllers I've made the joystick 
simulate the paddle* The maximum possible 
score is 10#000 which is a feat only possible 
with the paddles* I would be interested in 
knowing the joystick high score (no 
modificntions ple^gp)* 

When using the paddle controllers, you 
should keep the tMiused controller turned fully 
clockwise to insure that the computer will^ 
correctly sense that the paddles are connected* 

Attach your controller to the left port and 
HAVE A NICE DRIVEl ' 

Program Documentation for 
Midnight Strip 
(c) 1982 all rights ressr^ 
M«L« Clayton 
45655 Utica Gr* West 
Utica» MI 48087 

INITIAUZATION & TITLE 



LINE 3 ~ DIM arrays & strings. Tgrn off 

display for faster inits* 

1200-1210 — Variable initializations and 
game start ditty generation* 

1211 — Fill memory routine in string form. 

1212-1226 — More variable inits and game 
start ditty generation* 

1050-1057 — Calculate 3K below ramtop 
location for PMG base address* Set up title 
page player attributes* Restart DMA* 

1060-1085 Set up string location pointers 
to point to PMG ram start* 

1093-1095 ~ Set up title play field* Kill 
attract mode* 

1096 ~ Clears PMG RAM. 

1097-1100 ~ Assign title^jpage player 
data* Turn on PMG* 

1101 - Determine if paddle or joystick* 

1102-1109 — Allows user input of track 
type with visual and audio feedback of 
selection* Attract selection tone generation 
after about 30 seconds* 

i 1 10 — Put up start engine message* 
1111 — Determine if standard track 
already exists in memory* 

1112-1115 ~ If necessary assign standard 
or random values* Create engine cranking 
sound* 

1116 — Create engine starting sound* 

1117 — Create idleing engine sound* 
Initialize track position and race timer to 
zero* Kill attract mode againt 

MAIN SCREEN DISPLAY 

73-83 — Set up and activate the five 
Display List Interrupts* 

84 — Determine start of screen ram* 
Calculate windshield bound bytes* Calculate 
rear view mirror reflection bytes* Initialize 
vehicle velocity and speedometer end position* 

85-86 — Initialize text window contents 
(speedometer numbers)* 

87-88 — Draw sun visors. 

89 — Draw mirror* 

90-100 — Draw lower part of screen* 
(brake lights> indicator # hood) 

401 — Force user to center paddles before 
starting* Sets ready to start indicator red and 
loops until centered. 

403 — Sets indicator to green* Continue 
loop until centered* 

404 — Trigger pressed} time to start. Turn 
0ff indscatw and antmr j/B^tiek position* 

405 Clears PMG RAM* 

406 —Assigns PMBASE. Set pylon count 
indicator color* 

407 — Sets horizontal position of pylon 

continued 
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numbers* 

409 Sets quad width players and player 
priority* 

410 Starts work loop* 

MAIN NOORK LOOP 

- • - 

LINE 6 — Read paddle position* 
7 — Compute new joystick position from 
old position and current joystick orientation* 

9 — Compute current velocity* If not 
pushing trigger then decrease velocity* 

10 — Keep velocity within bounds* 

11 — If not pushing trigger then display 
brake lightf^^Jtove speedometer indicator to 
left* 

12 — If trigger is pressed then kill brake 
lights* Increment speedometer to right* 

13-14 Evaluate new current 
speedometer end byte* Sound enginet 
Determine n«w tr^k position and fractional 
track length* ^ 

15 — Assign correct track color* 
16-32 AilfiNEin centered pylon positions; 
and scale factors* 

33-34 ~ Offset the data to target 
positions* 

47-57 — Place any pylon data that wanders 
out of the windshield area into rear view 
mirror position* 

58 — Restore mirror edges to default 
alues* Clear windshield RAM* 

60-64 — Draw road* 

65-69 — Draw pylons* 

70 — At end blank out last pylon set* Turn 
off pylon number indicatr* 

72 — Set horizontal player positions to 
zero* Adjust sound* 

73 — Increment timer if no crash occurs* 
Re-enter the main loop, 

74 — If crashed move pylon number 
indicatcx^ off screen* Go to crash routine* 

CRASH ROUTINE 

500 — Make ctm^ Mund* 

501 — Rotates colors* 

502 — More crash sounds* 

503 Draw cracks* 

504 — More color rotations* 

505 ~ Clear PMG RAM* 

507 — IMlWIMih OTMh MUflfhl* 

508 — Creates crash information panel* 
Turn off all sounds* 

509 — CrMit« ftfial velocity display* 

511 — Display track position message. 

512 — Calculate score* Jump to score 
display routine* 



MISCELLANEOUS 
600-603 ~ Title display DATA 

900-915 ~ Race course DATA* 

1000 — Delay List Interrupt skeleton 
DATA 

SUCCESSFUL COMPLETION (END) ROUTINE 
3000-3001 — Brighten then dim display* 
Decrease sound to off* 

3002-3004 Calculate score and ranking 
pointer* 

3005-3006 ~ Create finish strip display* 
3008-3012 ~ Generate score display* Jump 

to audio- visual display routine if excellent 

score* Delay then put up options* 

3013 — Monitor trigger and restart when 

pressed* 

3016 ~ Rotate high score message* 
3017-3022 ~ Determine if paddle or stick 
score* 

4000-4001 — Excellent score audio-visual 
routine* 

5000 ~ RAM FILL SUBSOUTIilE. 



Mote} fS$ in line 1211 will not copy to the printer, 
50 yoLi rtiist build that string frow the following DATA 
5t3tef«nt5, then enter it in line 1211* 

TO BUILD FS$ FOR MIDNIGHT STRP 

FOR Ul TO 56iREAD DATA 

FS$(LEN(FS$)+1)=CHR$(DATA) 
HEX! I 

DATA l(H,lMtl33,2e9tlM,133 - 

DATA 208,104,Hlt255,6,101,Hl " - * 

DATA 254,640^401|168,1A2,0 

DATA 1SZ,129,2I8,S6»173,251,6 

DATA 229,208,208,8,173,255,6 

DATA 229,209,208,1,96,21,169 

DMk Irl«if^4a3»mi69,l 

DATA 101,209,133,209,169,0,210,220 
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0 REN nx nx 

1 REM m BY H. L. Cla^ m 

2 REM m Copyright 1982 m 

3 OIH CPi(ll2),SNlf(8)»SN2$(8),SN3>(8) 

,NUSTf(182),MESSI(51) ,R(262) ,FSi(58) ,RC(3) JPOKE 
559»0:GOSUB 1200 

4 eOSUB 1150 

5 GOTO 75 

6 TF TR=(S36 THEN P/«)=fEEK(PO) 

7 fwmmnw hmm m psk(sk)<i3 aw vel>o then 

P«>^W-22iSGN(NB-fEEK(SK) ) 

8 0FF=(PAD-lH)/3.3;A=(Nl-PU)iN1-N2JVa=VEL+Ail.5JIF 
PU DEN UEL4a-N2iCflUIR Z 

9 F Va<Z TtCN VEL=Z 

10 F VEL>120 THEN VEL=120 

11 IF PU THEN POKE 1638,S0:PLOT EN0H»N38:iF EN0N<77 
TIEN PLOT ENONfNl.NaSiDRMTO ENGH^,N38 

12 F PU=Z THEN POKE 1638,Z:C0L0R N3JPL0T EH0H,N38:IF 
ENQH<SN T»EN PLOT ENOH«Nl,N38i<MEL/20 

13 ENGN=INT(VELi6T/301):SOUND Z, 50 »N4»VxN2+N2! SOUND 
N2,GT + N32,N2,Vi2.5JS0UN0 
N3»M,N&,UxZ»S!B=e+VEL/N50 :eUsINT(B) 

14 RC(Nl)4e!RC(N2)=NZ!AsINT 

( (B-BU)iN8)tNl :IF VEL>N60 THEN SOUND 
N1,76-INT( (VEL-N60)/N3)iNZ,N2,INT( (Va-M60)/N4) 

15 RC(N3)=N2;BU»BU-INT(BU/HU) 

xhu:bu=bu-int(Bu/nio)inio:if bu>o and bu<4 then 

16 F A=N1 TICN YlL=N8:Ylrt.=NB: 

Y2L=N1 0 { Y2AL=1 1 : YX=13 : Y3AL=15 

iY4L>17{m<0!YSL^:YSML=Z6 
:J1=2.5JJ2=2.6JJ3=2.76 

17 F A=N1 THEN L1=N38{R1=42!L2=36 
;R2s44:L>N32:ii3H8iL4-2S:R4»S5 
{L5=16:R5=64:J1=2.95JJ5=3.3:G0T0 N32 

18 F A=N2 THEN Y1L=N8{Y1«.=N8:Y2L=10 
!Y2M.=lliYaL=13!Y3M.=15:Y4Lsl7iY4M.^ 
{Y5L=21:Y5AL=27:J1=2.52JJ2=2.62JJ3=2.78 

19 F A=N2 THEN L1=N38:R1=42JL2=36 
iR2a44:L3=:32:R3=%iL4=24:R4=S6!LS=15 
!R5»^:J4^.98:J5=3.35:G0T0 N32 

20 F A=N3 TJCN Y1L=N9:Y1AL=N9:Y2L=11 
:Y^-12:YX-13!Y3M.=16iY4L=18:Y4M.»22 
{Y5L=2ZJY5«.=27:J1=2.53;J2=2.64{J3=2.81 

21 F A4B THEN L1=N38:R1=12JL2=35 
:RZH5:L3^1 !R3=49:L4s23!R4=S7:LSs13 
:R5=67!J4=3.02:J5»3.4:GOTO N32 

22 F A=N4 THEN Y1L=N9JY1AL=N9:Y2L=11 
JYM.»12;Y3Lsl4{Y3ftL=17:Y4L=18{Y4flL«22 
{Y5L=23;Y5«.=27.'J1=2.54:J2=2.66:J3=2,83 

23 F A=N4 THEN Ll=N38{Rl=42JL2=35 
!R2»45iL3«30iR3^!L4s22!R4«SB:L5sl2 
{R5=68{J4=3.06JJ5=3,45:GOTO N32 

24 F A=N5 T»CN Y1L=N9:Y1«.=N9}Y2L=12 
iy2M.«13:y3L>15!Y3M.sl8;Y4L-19iY4M.^ 
JY5L=24{Yai=27JJl=2.56!J2=2.68:J3=2.85 



25 F A=N5 THEN L1=37:R1=43:L2=34JR2=4A 

:l3^»3<i :l4s2i :r4=S9:ls»ii :ie=70 

:J4=3.1:J5=3»5JG0T0 N32 

26 F THEN Y1L<^:Y1AL^:Y2L=12 
!y2M.>13:Y3L«15:y3M.>18!Y4Lsl9!Y4M.^ 
JY5L=25IY5AL=27:J1=2.57:J2=2.72{J3=2.9 

27 F THEN L1=^:R1M3!L2=34!R2=46 
:L3s28:R3=52!L4e20:R4^0:L5»9!R5=71 
:J4=3.15:J5=3.6:G0T0 N32 

28 F A»N7 T)£N YlLsN10:YlM.=N10iY2L«12 
:Y2AL=14{Y3L=16:Y3(1=19}Y4L=20{Y4«.»24 
JY5L=26:Y5«.=27:J1=2.58:J2=2.72 

29 F A=N7 TfCN L1=37JR1=43:L2=33:R2=47 
{L3=27 JR3=53{L4=19{R4=61 {L5=7JR5=73 
{J3=2.9:J4=3.2:J5=3.7:G0T0 N32 

30 Y1L=N10:Y1AL=N10:Y2L=12:Y2AL=14 
:Y3L=16{Y3tt.=19{Y4L=20JY4tf.=25:Y5L=27 
:Y5AL=27:J1=2.59:J2=2.74{J3=2.92:J4=3.25 

31 L1=37:R1=43:L2=N32:R2=48:L3=26 
iR3^:L4sl8:R4^:LS=N4!RS»76:J5:s3.8 

32 Ylft=YlLJYl/«=Yl^:Y2R=Y2L:Y2«l=Y2«. 
JY3R=YX{Y»«=Y3«.{Y4R=Y4L{Y4tfl=Y4«. 
!YSR»YSL!YSMisYSM. 

33 Ll=LH{)FF4R(B+N4)Ui:Rl=Rl+0FF-tR 
(B+N4)UlJL2=L2+flFF+R(B+N3)xJ2:R2=R2 
40FF4fi(B4N3)iJ2:L3^j40FF4fi(B*N2)U3 

34 R3=«3+0FF*R(B+N2)xJ3:L4=L4^0FF+R 
(B+Nl )U4{R4=R4+flFF-Ht(&»Nl)iJ4:L5st5 
40FF«(B)xJ5:R5»R5+aFF^(B)U5 

35 SNl=INr(B/HU):SN2=INT((B-SNliHU) 
/N10):SN3=INT(B-SN1XHU-SN2XN10) 

36 SNl$aNUST«(SNl«e«W»SNliN8tNB) 

: SN2$=NUST$ ( SN2iN8^1 , SN2xN8iN8 ) 

:SN3$=NUST«(SN3xN8^1 ,SN3XN84MB) 

47 F L1<Z OR L1>SN THEN YlL^iYlM.^ 

{Ll=39+N8iSGN(Ll) 

48 F L2<Z OR L2>SN TtCN Y2L=N6{ Yai=N6 
iL2»39«NBiSGN(L2) 

49 F L3<Z OR L3>SN THEN Y3L=N6;Y3«.=N6 
JL3=394«8iSGN(L3) 

51 F L4<Z OR L4>SN TiEN Y4L>N6:Y4M.»N6 

JL4=39+N8xSGN(L4) 

51 F L5<Z OR L5>SN THEN Y5L=N6JY5AL=N6 
:LSb394MBiSGN(L5) 

53 F R1>SN OR R1<Z THEN Y1R=N6:Y1/«=N6 
:R1=39+N8iSGN(R1) 

54 F R2>SK « R2<Z HEN Y2iNI6:Y2MH16 

:R2=394N8iSGN(R2) 

55 IF R3>SN OR R3<Z THEN Y3R^:Y3AR»N6 
:R9«394NBiSGN(ft3) 

56 F R4>SN OR R4<Z TfCN Y4R=N6:Y4AR=N6 
:R4=394N8iSGN(R4) 

57 F R5>SN OR R5<Z T(EN YSNI6;YSMNI6 

{R5=39+N8iSGN(R5) 

58 POKE ft.,12iPQKE ffi,Z;FIU.4ISR 
(M]R(FS«)»»fl,NEH2,Z) 
60 COLOR RC(N1):F Y1L>N6 and Y2L>N6 AND 6<252 THEN 
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PLOT U»YlALiDRANre 
L2,Y2«. 

61 IF riR>N6 AND Y2R>H6 AND B<252 THEN PLOT 

62 COLOR RC(N2} :IF mm AND Y3L>N6 AND B<253 THEN 
PLOT L2,Y2«. 

iORAHTO L3»y3M. 

63 IF Y2R>N6 AND Y3R>N6 AND B<253 THEN PLOT 
R2,Y2AR:DRMfTO R3,Y3Mt 

61 COUK RC(N3):iF Y3L>M6 AND Y4L>N« AND B<254 THEN 
PLOT L3,Y3rt.JDRAIfT0 L1,Y1AL 

65 IF Y3R>N6 AND Y4R>N4 AND B<254 THEN. PLOT 
R3,YailR{l)iiAHI9 M,HMt 

66 COLOR Nl.'PLOT L5, Y5LJDRAHT0 L5,Y5AL:PL0T 
R5,YSR:DRM(T0 RSiYSAR^IF B<252 then plot LliYlLiPLOT 
R1,Y1R 

67 IF B<253 then PLOT L2,Y2LJDRAHT0 L2,Y2AL:PL0T 
R2,Y2RJDR«<T0 R2,Y2AR 

68 IF B<TF THBI PkftT L4,Y4L!DRAHT0 L4,Y4AL:PL0T 
R1,Y4RJDRAMT0 R4,Y1AR 

69 IF B<254 THEN PLOT U#y3Lt08AHT0 L3,Y3ALJPL0T 
R3»Y3Ri0iMHTO R3»Ya(M 

70 IF B>=TF THEN SOUND Nl,N5fl,NH,N10JCOLOR ZtPLOT 
L5,Y5L}DRWT0 L5,Y5«.JPL0T R5,Y5R:DW«T0 R5,Y5AR 

71 IF BWF TH£)i POKE U13,Z! POKE SH+N1»Z!P0KE 
SH+N2,ZJP0KE SHtN3,Z{FflR I=Fn TO FH+HZJPOKE I,Z:NEXT 
I 

72 IF B>>TF TMEN FOR I«N1 TO N5kN6:NEXT I! SOUND 
Nl,Z,Z,Z:LH=PHBiE:UH4JHTn:FI=Z:G0SUB F6!G0T0 3000 

73 T=T+Nl{ff L5<35 R5M6 THEN GOTO N6 

74 POKE U13»ZIP0KE SH+N1»Z:P0KE SHtN2»Z:P0KE 
Stt*N3,Z:P0KE FTT,Z{POKE FTT+N1,Z5P0KE FTT+N2»ZJG0T0 
FG/NIO 

75 RESTORE NUMSMZIFOR I=Z TO N24 
!REM) NSPOKE 1536+I,N:P0KE 1561+I,N 
SPOKE 1586+I,N:PaKE 1611+I,N 

SPOKE 1636*I,N 

76 mU IJPOKE 1563,198;P0KE 1575,N50 
iPOKE lS88,8Z:PaKE UOOtTSSPOKE 1625>HU 

77 Fa€ 1«SI,Z!P1]KE 1572,22 

JPOKE 1597,24:P0KE 1A22,23:P0KE 1647 
,24:FaR 1=^ TO 7e7iPaKE I,Z:PQKE S2S44 

*hiiiexi I 

78 GRAPHICS N2iN10+Nl SPOKE SH+N4,N10 
SPOKE SHtN5»224:Fa<E SHHi6»148 
SPOKE SIMBtZ 

79 DL=PEEK(560)+£«PEEK(561) 

80 POKE DL+N32,138SPaKE DL^1,138SP0KE DL+42,134 
SPOIC DL444,13Btf>flKE 0L«45,13e 

81 FOR I=N1 TO N3SP0KE DL+N50<+tt+I, 
PEEK(DL+N50*N2+I) SNEXT I 

83 POC SUtimtE 513,ll&»>aKE 54286,192 

84 SRS=PEEK(DL+N4)<€iPEEK(DL*H5) 
SHEHl=SRS«H8iN2iN10 SHEH2=SRS^559 
SN-^^l^MINLiiHSUEL-ZiENaM 

85 SD=SRS+7405POKE SO,N4iN4SP0KE SD+N4 
,19SP0KE SDtN5,N4KN4:Pt]KE SDHn^,22 



SPOKE SD4ie4N5,N4<H 

86 POKE SDtl4,25SP0KE SD»lS,i6SP0KE SO 

+17,175P0KE SDtl8,18$P0KE SD+19,16 

87 COLOR N2SPL0T 29tN4SDRAMT0 33,ZSDRAMT0 
Nl,ZSPOSmON N5,N4:P0I€ 

765,N2$nO N3«N6,#6,Z»Z/'SS"SPL0T SN,N9iN4 

88 PLOT 73,N4SDRAHT0 77, ZSDRAHTO 45,ZSP0SITI0N 
49,N4$XI0 18,#6,Z,Z,"S$" 

89 COLOR N3SPL0T N39,ZSDRAHT0 N39,N3 
SDfUMTO 31,N3SDRAHT0 30,N7:PLOT 
40,N3SDRMaO 47,N3SDRMfT0 48,N7SDRANT0 30»N7 

90 COLOR NZSPLOT Z,35SDRAHT0 N5,325DRAHT0 33,29SDRAHT0 
46,29S0RAHT0 74,32S0RM(T0 79,35SDRAHT0 Z,35S0RM(TO Z,36 

91 PLOT 39,285PL0T 40,28$PLOT 79,36SPL0T N3,34$DRAHT0 
76,34$PL0T 74,33$DRAHT0 5,33SPL0T N10,32:DRAHTO 69,N32 

92 PLOT 19,31SDRMT0 59,31SPL0T 29,30S0IMrTO N50,3I 

93 COLOR Z5PL0T 39,29SDRAWT0 39,34$DRWrO 40,34SDRAHTO 
40,29SPOKE 1613,Z:Pa<E 1638,Z 

94 COLOR N2SPL0T N38,46SDRAMT0 N38,42SDRANT0 
40,41SDRAHTO 41,42S0RAHTO 41,46 

95 COLOR N3$PL0T N9,43SPL0T N9,44SPL0T N10,43SPLOT 

96 PLOT 13,44{PL0T 13,45$PLOT 14,44$PLOT 14,45 

97 PLOT 17,43$PL0T 17,44SPL0T 18,43$PL0T 18,44 

98 PLOT 6i,43SPL0T 6I,44SPL0T 61,43SPL0T 61,44 

99 PLOT 64,44{PL0T 64,45$PL0T 65,44SPL0T 65,45 

100 PLOT 68,43$PL0T 68,44$PL0T 69,43:PL0T 69,44 

401 IF TR=PT THEN POS=PEEK(PO);iF P0S<76 OR P0S>153 
THEN POKE 1613,N5ISG0T0 401 

403 POKE 1613,210$IF PEEK(TR)OZ TJCN GOTO 401 

404 POKE 1613,Z;PAD=HUtN7+N7+R(Z}iN6iN3 

405 liHmsUHJHmSFI-ZSGOSUB FG 

406 POKE 559,465F0R I=SHtNl TO SH*N3SP0KE I,2305NEXT I 

407 POKE Fn,86SPaKE FHiNl, 111 SPOKE Fn«N2,136 

409 FOR I=FTT+N8 TO FTT+NIOSPOKE I,N3$NEXT ISPOKE 
Fn+N24+N4,N3 

410 GOTO N& 

500 Rl=N3iN3+INT(RND(Z)il7)$R2=30+INT 
(RND(Z)i20)SCOLOR N3SF0R I=N5«15iN3 
T0« STEP HCiSQUND Z,N4iN5,N4aN2tI/N5 

501 POKE SHtN4,RND(Z)iF$P0KE SH+N5, 
RND(Z)IFSSOIN) Nl,N3iN5xN5,N4+N4, 
Z/N5«M3{S0UND N2»HUiM5iN5ii6»M4«tH,I/N5 

502 SOUND N3,F,N4+N4,I/N5+N5$P0I« 1538 
,RND(Z)iTF$POKE 1563,RND(Z)itTF 

503 ApI}iT(RMKZ)iSN):V«9tINT<RND(Z)il7) 
SPLOT R2,R1$DR«<T0 A,V 

504 POKE 1588,RND(Z)KTFSP0KE 1638 
tfmiiMTFUBin ISPOKE 5S9,Z 

505 Lf1=P«iESUH=L«+TTT$FI=ZSG0SUB FG 

507 FOR I=N50 TO Z STEP -NZSSOUND Z,58, 
NB»I/N3SS0UND Nl,GT-N8,N3iN4,I/N3SNEXT I 

508 GRAPHICS N3iN6SPOSinON N1,ZS? «6; 
"HE HAVE CONTACT ! !"SFOR I=Z TO N3 
SSQUND I,Z,Z,ZSNEXT I 

509 POSmON Z,N2S? #6}" 

"{INT(\a){" " 

continued 
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511 POSmON NljWJ? #6}" PYLON "}INT(B) 

512 0FF=BIT(B/EiFGiKZ+(125i(B/E)-T) 

in7xnb+int(vel)):f aFF<z no off^ 

513 L1»Z!G0T0 3008 

600 DATA 205481»165,181»205,1,0,11» 
10,11»2»2,2»l,28,2t,28,2t,2l»28»0,112, 
16,16,112,61,120,0,0 

601 DATA 255,219,219,219,195,195,195, 
231,0,221,192,192,192,19249Z»193,2S5, 
0,255,193 

602 DATA 192,192,192,192,193,255,0,16 
,16,16,16,16,16,0,120,72,8,120,72,120 
,8,0,68,68 

603 DATA 121,8,8,8,56,0,16,120,16,16 
,16,16,21,0,121,68,68,68,68,68,121,0 
,61,68,100,81,76,68,68, 

900 DATA 0,0,0,0,0,1,2,3,1,5,6,7,9, 
10,8,7 

901 DATA 5,1,3,2,1,0,-1,-2,-3,-1,-3,-2, 
-1»-1,0,1 

902 DATA 0,1,2,3,1,5,7,8,9,11,13,11,15, 
15,13,12 

903 DATA 10,9,8,6,5,3,1,-1,-2,-3,-3,-2, 
-1»0,0,1 

9M DATA 1,2,2,1,0,2,1,3,1,0,-2,-1,-6, 

-7,-8,-10 

905 DATA -11,-12,-11,-15,-15,-11,-13, 
-15,-11,-12,-10,-8,-6,-1,-2,-1 

906 DATA 0,2,3,5,6,7,8,9,10,9,10,11, 
12,11,11,15 

907 DATA 11,15,16,16,15,13,12,10,9,7,6, 
5,1,3,2,1 

908 DATA -l,-2,-1,-5,-7,-fi,-9,-9,-8,-8, 
-8,-9,-9,-8,-7,-6 

909 DATA -5,-1,-2,-0,-1,-2,-3,-3,-2, 
-1,-1,0,-1,-2,-2,-1 

910 DATA 04,2,3,1,1,5,6,7,8,9,8,6,5, 

3,3 

911 DATA 3,3,5,6,7,8,9,8,9,10,9,7, 

6,5,3,1 

912 DATA 1,2,1,0,-1,-2,-3,-1,-6,-7,-e, 
-9,-10,-i2r-U,-U 

913 DATA -10,-10,-9,-€,-7,-6,-6,-7,-6, 
-5,-1,H,-3,-2,-l,0 

911 DATA -l«-3,-2,-l,i,l,2,3,1,S,1,1r 
5,5,1,1 

915 DATA 1,2,1,0,-1,-3,-1,-5,-5,-5, 
-1,-3,-2,-1,1,0 

1000 DATA 72,169,2,69,79,37,78,111,10, 

212,111 ,23,208, 169,25,11l|0|2469j6, 
111,1,2,1M,61 

1050 smics torn 

1055 Pte=PEEK(106)-N6-N6:P(]KE S9,16 
IPOKE 51279,Pte!PaKE 623,N1 

1056 POKE SH,HIMQ!PaKE SIMtt,118:Pa<E SH 
iN2,N6iN3!P0KE SH+K3,N2 

1057 POC S32S6,N1:P0KE 532S7,N3iP0KE 53258,N3:P0KE 



53259,N3 

1060 VT=fEEK(131)+PEEK(135)iE 
1065 AT=PEEK(110)«PEEK<111)iE 

1070 VELsPHBiE+S21-AT:PaKE VT«N3, INT (VEL/E) {POKE 

VT+N2,VEL-PEEK(VT+N3)iE ' 
1075 RimELt217iR2=fil+128:R3=R2+128 

1080 POKE VT«N5tNS,Rl-INT(Rl/E)iE:P0KE 

VT+N5+f<6,Dfr(Rl/E) 

1081 POC VT^18,R2-INT(R2/E)iE:PaKE VT+19,Ii4T(R2/E} 

1082 POKE VT«26,R3-Iifr(R3/E)«:PaKE Vrt27,INT(R3/E> 

1085 POKE FTT-Nl , 188:P0KE FTT,15{P0KE 
Fn<<<l,HU+N2:P0KE Fn*«2,183 

1093 PdC SHtM5,66iP0KE SIHN7,191!P0KE 77,ZtPOSITI0N 

z,z:? #6;"":posinoN n2,ni 

1091 POKE SH+N1,23i:? *6;" MIDNIGHT"," STRIP 

-.♦posinnN z,N3j? ut" 

1095 POSmON N1,N5:? #6,*" randon "," " 

1096 UH>NBiE:UH=UH1023!FI=Z:GOSUB fg 

1097 CP$=NUST*(N9«», 182) JOL=*»E 
JL«=DL+658JP0KE L«,N3:P0KE LM+N3,N3 
IPOKE UM121,N3iPflKE IJHNZ1^,N3 

1098 iJt4L-^768:(fHJHNBBN2!FI=170!GOSlfi F6 ' 
:L«=LH+17:UH=LM+NB{G0SUB FG - 

1099 UNJH33:UH4JHN7;G0SljB FC 
iLMJHN2i:UHsUHN74NB:G0SIB F6 

1100 L«=fHBiE+896{UM==P»BiE+Tn 
!FIsTF:GOSUB F6:P0KE 53277,N3 

1101 TR^:JIM>s1102!IF PEEK(PO) 
+f£EK(P0tNl)=156 THEN TR=ST ' 

:dUHP»iioi:GOTO jump 

1102 F PEEK(P0)>111 TIEN POKE 9M6,76 

{POKE SH+N7,191:CH=Z:G0T0 1106 

1103 CtHli:PQKE SHH(7,2M:PaKE SHH6» 
66!G0T0 1106 

1101 IF PEEK(SK)=N6+N7 TJCN POKE SHHB 
,76:P0KE SH+N7,191:CH=Z:G0T0 1106 

1105 OHttiPOKE SHtN7,GT4N1iPaKE SHH6,66 - 

1106 IF PEEK(77)<Nli THEN SOUND 
Z,121-CHi61,N10,N2:GOTO 1109 

1107 SOUND Z,Z,Z,ZJeoro 1119 

1109 POKE SH,RM}(Z)i255:iF PEEK(TR) KEN GOTO JUMP 

1110 POSITION N1,N1tN5:? %6i" YOUR "," "iSOUND 
Z,Z,Z,ZJFOR I=N1 TO HUJiCXT I 

1111 IF SRS>Z AND CM THEN 
AaR(N3)4R(S6>4R(77)+R(156)^(N2iHU):iF A>-N1iN1 THEN 
GOTO 1116 — * 

1112 F CH=Z THEN V=-N1:GOTO 1111 

1113 RESTORE 900iFOR I^Z TO TFiREAD NiR(I)sN:SOUNO 
Z,^(Ni(N7^)>,N8,Ni:>EXT liGOTO 1116 

nil FOR I = Z TO N 6 + N 1 : R E S TORE 
Iifrtt»(Z)il6/N2)iN2t900:FOR CH^Z TO 3i;VsV4NKREAD 

n:r(V)=n:soum) z,abs(nii5},n8,ni 

1115 JCXT CHtfCXT I ' " 

1116 A-Z:F0R l-l TO N32-NliA>Nl-AiS0UN0 
Z,N50 , A, (N3iN5)-INT(I/N3) {NEXT I 

1117 SOUND z,N50,Ni,N2;soiii) ni,gt,n6,ni:b=z;t=z:poke 
77,z:neiuw 

continued 
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120( z^:Nisi:N»4;Nitsii:N5i^ 

:HI>=100 :FG=N50iHUJSH=7M:F=255 
!Ti^l3:SaN> Z,213,iUt,Nlt:G0SUB 12H 
IZil FOR I=N1 TO 80!NEXT Itai¥79 
5GT=200 :SK=A3Z JPT=636:ST=611JPO=AZ1 
}£=256JFn=53249 

im SOUND z,i36,Nie,Nii:FaR 1^1 TO n5i;next i:gosub 

1211 

1205 Hl=2im=3im^lH^im=6lW=7 

{i*50=60 {nT=ie23:Hi=z:0T=z 

1297 SOUND Z,m»Nll»NlS:FOK I»N1 TO HUiNEXT liGOSUB 
1211 

1210 MESS$="TRY AGAINPATHETIC!FINISHED!G00D 
JOB'EXCEliENTMttZING!!" 

1211 F$=" "(see text) 

1212 SOUND Z462>N10,mO:FOR I=N1 TO NSiiNEXT liGOSUB 
miiSOUW Nl»HU*f(Z»Nie,NBiGOTO 1215 

1211 POKE SmN8,l»0(Z)iTF:RETURN 

1215 LI =PEEK ( 756 ) IE : FOR I'Hi TO 
8i:NUSTt(I»I)K}ft$(PEEK(Lm274-I)) 

1216 F 1=30 THEN SOM N3,?1,N10,N10:GOSUB 1211 

1217 JF 1=70 T(EN FOR A=Z TO 15 STEP N3:F0R H'l TO E 
STEP N3Z;S0UeiO,N>N10,A:NEXT NiNEXr A 

1218 NEXT i:SOUM) Z,136,N10»N10:GOSUB 1211 

1220 FOR I=N1 TO HU+N2:READ 
N;NUSTI<It8t»I+8i^*CHR$(N);iF Z»3» TNEN SOUND 
N3436,N10,N7xN2;GOgiB 1211 

1221 F 1=15 TICN SOUND N3,91,N10»N10:GOSUB 1211 

1222 F IMBIJQyND IB^»N1«,N7iNZ:G06UB 1211 

1223 F 1=77 THEN SOUM) N3,15,N10,N8:GOSU6 1211 
1221 F I=HU THEN SOUND N3,Z»Z,Z:G0SUB 1211 

1225 (CXT liSQUND Nl»m»Nll,Nli:FDR TO N5liNEXT 
tSSOUND Z,213,N10,N8:FOR I=N1 TO NSOSNEXT I!POKE 
SH+N8,Z 

1226 FOR 1-213 TO 68 STEP -NliSOUNO N1,I,N1I,N1I:NEXT 

liSOUND z,z,z,z;sauND ni,z,z,z:return 

3000 SOUND n2,z,z»z;for i=int(vel/n8) to z step 
-NiiPOKE sh+nij:poke SH4-NS,I:P0KE sh+n6,i:poke 

1563J:P0KE 1588 J 

3001 POKE 1613»I:P0KE 1S38»I:P0KE 1638,I:S0UND 

Z,NSI>N1,I:S0UND N3,6T,N6J!F0R A^Z to N6iN3!NEXT 

AJNEXT I 

3002 FOR I=Z TO NSOiNEXT 
IiaFF<^WC-NU-ittWCt(125-T)iii7iN»fINT(VEL):iF OFF<Z 

THEN QFF=I 

3003 ENOH=INT(ABS<OFF+N50V2«»i)aF 0FF>7999 AND 
aFF<90N TKN ENOH^NOHM 

3001 Ll=Z:iF OFF>950fl THEN Ll=NiaF OFF>9700 THEN 

L1=W2:F 0FF>980fl THEN L1=N3{F OFF>9900 Tt£N L1=N1 

3115 GRAPHICS NMBiFOR Z>Z TO NSiSOUND I,Z»Z,Z:NEXT 

I I IF OFF>Z THEN POSITION N5,Z:? 

*6;HESS${EN0Hi9^1 ,EN0HiN9+9) 

3t06 POSITION Z»N2!? *6i" "',J»fH\IEL)t" " 

3008 POSmON N1,N5:? #6}" "JOFFIIF L1>Z 

KEN GOSUB FG-HUINIO 



3009 IF TR=ST THEN POSITION H5,H7l? 
«6r(J0YSTICK)*'!GOrO 3111 

3010 POSmON N6,N7:? #6;"(PA0DLE)" 

3011 FOR I=Z TO EJNEXT IIPOSITION N2,N10J? Ur 

"iPOsmoN ifVam 

3012 ? #6;"":a=z{f hkoff then hi=€Ff:ot=tr 

3013 FOR I=N1 TO HUJF P£EK(PT)=Z OR PEEK(ST)»Z liBk 1 
3111 »EXT I 

3016 A=N1-AJIF A=N1 AND OT>0 THEN POSITION N1,N5{? 



*6}" 



II II 
f 



II « 



{HI}" 



II 



3117 IF A=N1 AND OT=ST THEN POSITION N5,N7:' 
#6}"(J0YSnCK)"JG0T0 TJ 

3018 IF A=N1 AND OT>l THEN POSITION N5,N7{? #6,'" 
(PADDLE) "{GOTO TJ 

3020 POSmON NUN5J? #6?" "{OFFJ" " 

3021 IF TR=ST THEN POSITION N5,N7:? 
#6r'(J0YSn(3<)"JG0T0 TJ 

3022 POSITION N5»N7;? *6;" (PADDLE) "IGOTO TJ 

1000 FOR L3#i7i(NlCl) TO Z STEP -NZiFOR L1=N1I+N5 TO 
GT-N5 STEP NIOJPOKE SH+N8,RM)(Z)iF:S0UND Z,L3,N10»L1 

1001 lOT LliNEXT L3:PflKE StHNB^ZiSOUW Z,Z,Z>Z {RETURN 
SMI FILm£R(AOR(FS$)»LH»UH»FI) {RETURN Q 



Memory Expansion Boards 
for the ATARI * Computer 

Completely compatible with ATARI 
hardware and software 

No modifications necessary 
Fully assembled and tested 
User installable • simply plug it in 

One year warranty 
Gold connector tabs and sockets 
16K Memory Board — $ 54.95 
32K Memory Board — $124.95 

Build Your Own Memory 

16K board - no components • $12.50 
32K board — no components — $30.00 

Add $2 Shipping and handling per board 
* ATARI is a trademark of Atari Inc. 

Dealer Inquiries Welcome 

Tiny Tek, Inc. 

P.O. Box 820249 • Dallas, TX 75382 0249 

214-373-8926 




HIGH SCORES 



Phil Heavin 249,950 



J oe CaldweII.M«40,440 



KEEP THOSE SCORES COMING IN! 




UNCLASSIFI 



Trade-Atari Equipment; printer, disk drive, 
etc* in exchange for rent of large 1 bedroom 
apt* 28 mile and Van Dyke; call Jack Fraylick 
781-9804 



Atari Word ProcM*$89 
2 16K RAM.»*49 ea» 
Eastern Front <disW##i 19 
DataTOft Mail List (disk)M»19 
Comp* Card File (APX).m9 
(or best offer) 

C^ J^ Vindellen, 821-5706 




1982 MEETING SCHEDULE 



JULY 15 
AUGUST 19 
SEPTEMBER 16 



OCTOBER 21 
NOVEMBER 18 
DECEMBER 16 



BERKLEY COMMUNITY CENTER 

2400 ROBINA 
BERKLEY, MICHIGAN 



12 MILE ROAD 
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COMMUNITY CENTER 
2400 ROBINA 



11 MILE ROAD 




fiO mONCCLR 



CAR STEREO 

Pioneer car utereo tu fit must curs 
i8 on Mule. inclndinK the KP-6ftOO 
AM/FM Htereo caMtietie player with 
Supertuner and the deluxe tri- 
axial TS-e96 6x8" upeakerM. You 
can alMO drive a bargain on Sony. 
JenMen. Clarion. MitMubiMhi. and 
Concord car steruo! 




AIWA 
PORTABLE 



STEREO 



Top-quality Aiwa portable stereo 
is on sale, including the Aiwa CS- 
440 AM FM stereo cassette re- 
corder with 2 shortwave bands 
and world-wide voltage. And JVC, 
Hitachi. Panasonic, and Crown of 
Japan portables are priced to 
travel, too! 



AIWA 






JBLSPEAKRS 



Save on JBL speakers, like the 
magnificent R-1S3 3-way tower. 
Breakthrough speakers from Ohm. 
Celestion EPI. Infinity. Cerwin- 
Vega, and TDC are clearance- 
priced too' 

SONY CASSETn DECKS 



RECEIVnS 





Tech Hifi will not be undersold! 

We will meet or beat the price of any authorized dealers 
on any component they have in stock. 

ASK ABOUT M.A.C.E. DISCOUNTS 

28007 West Eight Mile Rd., Farmington 477-8810 

Better price. Better advice. 



VXS4' 
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% StafvXSctaNrs 

'Bats' is a program with a number of 
specialized techniques for the A tari» Perhaps 
you will find some of these useful in your 
programs* 

The bats» stalactites and stalagmites are 
printed using special characters* These 
characters are created by reworking the 
normal character set (lines 100-104 and 
32000-32108)* The character set in ROM is 
first moved into RAM where it can be 
modified* Space is set aside by lowering 
RAMTOP five pages (line 32000)^ then going 
back up one page to calculate START* START 
is the beginning of the new character set of 
four pages (IK)* The reason for leaving the 
blank page is that the display list and display 
data (residing at the top of memory) will in 
certain situations take in memory beyond 
RAMTOP* 

Transfering IK by peeks and pokes is slow 
(it takes about 20 seconds)^ so I've written a 
machine language routine to do the job (listing 
1)* This routine is poked into a string ZZ* in 
line 100 and is called in line 32020 with the 
USR function as! As USR 
(ADR(ZZ*)tADDRl,ADDR2) where ADDRl and 
ADDR2 are the 'from' and 'to' locations of the 
IK block* Eight characters are changed 
including #*%&'()+* (lines 32030-32108)* 

For the player missile techinque I refer 
you to Sheldon Leemon's excellent article 
referenced in line 139t Ttie idea is to make up 
the player missile area using strings* String 
operations can then be used to erase players 
or move them vertically* The entire player 
missile area is cleared in line 170* The string 
I*$ falls in the player zero area (bat) while the 
string M$ holds the missilM tinMcts)* Images 
for the bat with wings down (BATON*) and up 
(BATUP*) are also stored in strings* The 
image strings are positioned in the area 
strings at the proper spot for the current 
vertical position (lines 310-320)* Bat images 
are moved one character at a time and blanks 
at each end insure that the previous image 
will be erased by the new* 

The four insects are defined in string MM* 



(line 150) while their vertical positions are 
defined in line 287* The positions chosen are 
somewhat of a compromise# trying to keep the 
insects between stalactites and stalagmites 
as much as possible* 

There are two types of stalactite - 
stalagmite pairs as defined in line 260* Line 
270 provides copies of these in two other 
colors* If drawn as defined# the tips would be 
touching each other* Instead pairs are drawn 
in a loop (lines 500-570) by drawing part of 
the stalactite (to the tip), blanks equal to the 
width of the cave H and part of the stalagmite 
(from the tip)* 

The structure of the main part of the 
program is as follows* 

Main Routine 

Decrease width of cave (280) 

} Next player (284-286) 

; Position insects (287) 

; Wait for signal to start bat (290-295) 

} Print scorecard (300-301)} 

; Set bat at left side> dMf mlU refieter 

(306) 

For increasing horiz* positUms! 

\ If trigger pressed# bat up one (310) 

; If not pressed » down one (320) 

; If hit poisioned insect go lose a bat 

(330) 

; If another insect add 25 pts* (340-360) 

; If hit stal* then lose a bat (370) 

J Next horiz* pos* \. 

Pass thru cava until round scor«>300 

<395)J 

; Add round score to total (400)) 

; Add bonwiil aarnsd (extra liat) (402) 

Blink total (403) 

Until all playars have gone thru at width H 
(404) 

Lose a Bat Branch; 

} Sound crash (420) 

; Bat falls till another coll* (430) 

; Remove bat4f last play dirge (445) 

; If more players return to flashing score 

(460) 

} Print game over etc* (470-472) 

continued 
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J Wait for start again (475) 
; Reinitialize! start again (476) 

You will notice that in none of the 
structure is there any mentioii of the 
horizontal insect movement» That's because 
it's automatic! Every l/60th of a second Atari 
goes through an updating process* This occurs 
during the time the electron beam forming the 
TV picture is traveling from the bottom to the 
top of the screen^ the so-called vertical blank 
periodf Provision has been made to insert our 
own updating routine to take care of the 
missiles* The routine and the necessary code 
to insert it is given in listing 2« Both are 
poked into page six in lines 180 to 190» Four 
bytes are set aside in page six to hold the 
horizontal positions of the missiles* Every 
l/60th of a second numbers are taken from 
these locations and put in the missile 
horizontal registers* By doing this during the 
time when the screen is blankedi the screen 
doesn't flicker* 

This program handles a problem which has 
bothered me for some time*. }f you oncf 



initialize PM graphics and then do a Graphics 
command (GR* 2)» you end up with the player 
missies being vertical stripes which run the 
full length of the screen* Reversing the PM 
initilization doesn't seem to help* The 
problem is the chip which feeds the screen* It 
has some registers which are normally being 
filled by ANTIC during PM graphics* This chip 
can be disconnected from ANTIC (0 in 53277) 
but the registers still have information in 
thmm which result in vertical lines* These 
registers (53261-53264) have to be cleared 
mth pokes as in line 1000* PM graphics is 
then reinitialized after the graphics mode 
change (line 2000)* 

A simple alteration of the display list 
improves the appearance of the display 
considerably* In this aam the four graphics 0 
lines in the text area are changed to four 
graphics 1 lines (lines 2010-2040)* You must 
remember that the linM mm mm 20 characters 
long instead of 40 and must alter your 
calculation of row and column positions in the 
text area accordingly* Notice in lines 
290,300,301 and 700-800 that row 0 takes in 
the first two rows and row 1 the last two* 



MegaRam 



Hours: 9:30-8:30 M-5at 
12:00-5:00 Sun 



COMPUTER SYSTEMS 



ATARI 



51S80 VAN 



PAC-MAN COMES 
HOMEiffLASt 

''-^ ■ ...and only $32.95! 
Our free catalog has over 
400 programe for the Atari 

at great 
• . .DISCOUNTS. . . 



PAC-/VIAN * 



mmm 



--Wr i te or ca 1 1 - - 



IM 

UTICA, Ml 



Ml 



-2590 



NAME 



ADDR 



OTHER DEALS- -- 

Intec 32K $79.00 

Printers... 



CITY 



STATE 



ZIP 



[] Send free catalog 



C 1 1 o h Come t 

Prowr iter 



I ... $269.00 
$489.00 



[] Send Merchandise below 
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20 REH mim»m«n«Kim 
30 REH n BATS 
HREHn S.O. 3-62 
50 REM mnin**)imt»m**M» 

lOD DIH ZZi(3Z):F0R 1=1 TO 32:R£AD 
Ai2i(I)<<HRI(A>UEXT liOnUB 32M0iGU) 

102 DATA 101>101,133,201,101tl33,203, 
101»133,206«101»133»205,1^»1»160,0 

219,230,204»230,206,202,208»210,?6 
110 GOSUB 3000 

130 WP 130:? "I PLAYERS "IIPOKE 7M,2S5!IirUT NP 

138 REH u PN GRAPHICS n 

139 REH II SEE MAR '82 SOFTSIDE P. 69 n 
MO OIMDi(l),F$((IKT(ADR(D()/1024)H) 
Kl02t^(D«)-l ) »Pm(381) »Hf (128) ,P$(128) ,mK8) 

150 RESTORE UOiFOR 1=1 TO SiREAD 

Aimi(i)=o«$(A):)EXT I 

160 DATA 3,342,12,18»18»192,192 

170 PM$=CHR$(0)JPM$(381)= 
QM(0) :PN$(2)^!H$^:PI4fl 
172 REM u MISSILE COLORS n 

171 raKE 701,HJPOKE 705,39JPOKE 706,54JPflKE 707,70 

179 REH IS VBI ROUT. TO HOVE HlSSUfS n 

180 FOR MS36 TO 1566!READ A:P0KE I,A!ICXT I 
190 DATA 101,160,11,162,6,169,7,76, 
9Z>228,90,120,1SI,180,162,3»222,10, 
6,189,10,6,157,1,208,202,16,211, 
76,98,228 

199 REH n BAT IHAGES n 

ZOO DIH BATDN«(5);BATDH$=Pi!F0R 1=2 TO l.'READ 
A:eMTDN$(I,I)=CH»(A);)EXT I 
210 DATA 21,165,66 

220 DIH BATUP$(5):BATUP$=Pi{F0R 1=2 TO IIREAD 

A:eATUP$(i,i)=ai»<A)!iC0 1 

230 DATA 66,165,21 

250 POKE 51279, ADR(PH$)/256{P0KE 559,16JP0KE 
53277,3:P0KE 623,15A=USR(1536) 

259 REM n STMiCniES AND ST/iAGHITES n 

260 DIM C$(12),U$(12)JCI="imi$Z 
KiiiiiS":U$=")(iiiii'>iixii"!FOR 1=1 TO 
11!C$(M1Xti»(ASC(C$(I) )-32) 

270 Ui(I+11)=a«i(ASC(l»(I))-3Z) 
{C$(I+28)=CH»(ASC(C*(I)) 
+128) !U$at28)=afif(ASC(Uia) ) 

+i28)j«)a I 

272 DIH P(l«>),SCORE(ll>),TOTtf.(NP), 
6N(NP),BQMJS(NP) - 

275 »*=7{P=0:POKE 82,0 

278 FOR 1=1 TO NP:SCORE(I)=0JTOTAL(I)=0 

:eN(i)^:BONUS(i)=iooo:icxT i:NXTCv^3Mi«f» 

279 REH n CHANGE OTH OF CAVERN n 

280 IF H>3 TfCN N=H-1 
282 GOSUB 180 

281 PaP+ltF P>tl> TfCN P=l 

286 ff BH(P)=0 THEN 281 

287 HO^iFOR 1=0 TO 3:HI(YST«5lHtM 
1(3-1) )=»t»(2iI+l,2iI+2):NEXT I 



289 REM n HAIX LOOP n 

290 PCKE 6S6»ltf>a(E 657»22i? " Pull Jiustick" 

295 IF SnCK( 0)013 THEN 295 
299 REH XX SCORECARO xi 

310 ? CHRI(125)ieOSUB 70I!POKE 656,lsraKE 6S7,26{? 
"PLAYER #"JP 

301 POKE 656,1:P0KE 657,21?? "Round Totar'JJGOSlB 860 

306 POKE 53218,30iYPOS=YST+20:PaKE 53278, 0:T=0;DIS=12 

310 FOR ){P0S=17 TO 2iO:POKE 53218,XP0SJIF STRIG(0)=0 

THEN YP0S=YP0S-i:Pi(YP0S)=6ATl)P$ " 

320 IF STRIG(0)=1 TICN YPOS!syPOS+l!PI{YraS)«fiATDN$ 

330 IF PEEK ( 53256 ) >e THEN POKE 

1516,0JTOTAL(P)=TOTAL(P)-10fl:GOTO 120 

310 JF PEEK(532S7»0 DEN POKE 1517,0:GOSUB 900 

350 F PEEK(S32SB)>0 TIEN POiC 15ie,0:GOSUB 900 

360 F PEEK(53259)>0 THEN POKE 1519,0:GOSUB 900 

370 F PEEK(S32S2)>0 T)EN 120 

391 >EXT )(POS!P$^ 

395 F SC0RE(P)<3flfl THEN 386 

100 TOTM.(P)=TOTAL(P)+SCaRE(P) 

:scaRE(P)=o:oosuB 870 

182 IF TOTAL(P)>BONUS(P) AND BN(P)<1 THEN 
BONUS(P)=BONUS(P)+ 

1000:6N(P)=eN(P)+i:GOSUB 700!DIS=10:T=30:GOSUB 630 

103 FOR 1=1 TO 30:GOSUB 880:F0R J=1 to 30iNEXT JiGOSUB 

mttExi I 

101 F P=ff TfEN 280 
110 GOTO 281 

119 REM XX LOSE A MT IX 

120 DmO:T=9:GOSUB 630 

130 YPOS=YPOS+i:Pi(YPOS)=BATDNi:POKE 53278,0;SOUND 
1,YPOS,10,10:F PEEK(S32S2)s| TiEN 130 
115 GOSUB 610:P$^:SCORE(P)=0 

JBN(P)=BN(P)-1{G0SUB 700:iF BN(P)=0 THEN POKE 

656,0:Pfll£ 657,6:? " "IGOSUB 660 

160 GOSUB 850:FOR 1=1 TO mW 6N(I)>0 THEN 103 

170 NEXT I:G0SUB 1880JGRAPHICS 17:P0SITI0N 5,21? 

*6;"G3nE OveR"!FOR 1=1 TO NPiPOSITION i,Z*2Ut? 

#6}Tl3ser #";i; 

172 ? HI" = "J TOTAL (I) {NEXT ISPOSITION 3,231? 
*6,' "PRESS ANY KEY"| 

175 FOR 1=1 TO 300!NEXT I!GOSUB 6S5:F a=0 TiEN 175 

176 GOTO 275 

179 REH IX AMU CAUERN XI 

180 GOSUB 1000:GRtf>HICS 2:G0SUB 2000:POKE 77,0 
190 DL=INT(RND(0)i(8-H))+15YST=8x(DL+l) 

511 FOR Tft 1^9:eOSUB S90:Ys0iFOR IpH*7-0L 10 

R+6:posinoN x,y:? #6;ci(i,i):Y=Y+i:»EXT i 

510 FOR 1=1 TO HjposmoN x,YJ? #6}" ":y=y+i:icxt I 

SZO F OL4M>*10 HEN Y=Y-U|06XTION X,Y:? *6r""!60T0 
530 GOSUB 590? FOR I=R TO R+9-DL-H J POSITION X,Y{? 

*6;uia,i)!Y=Y+i:iEXT I 

510 F DL<=1 THEN DL=2{G0T0 570 
550 F DL>=10-H THEN DL=9-HJG0T0 570 
560 DL=OL+INT(RMD(0)i3)-l 
570 NEXT X 

580 RETURN . , 

continued 
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590 R=INT(RND(0)i4)i7+1;RETURN 
i29 REH n SOUND SUBR'S n 

63t FOR M5 TO 0 STEP -liSOUND Itl^OISJiFOR J»l TO 

nicn j:next ijreturn 

MO FOR 1=10 TO 2 STEP -Z.'SOUND 0,RND(0)i255»8»i:SOUND 
l«RiD(i)i2S5,8»IiFaR ^1 TO 30!)EXT J!)EXT I 

650 SOUND 0»0,0,0iSOUND 1,0,0»0:RETURN 

655 RESTORE 6?7iLS=30:U.s5iG0SUB^iRETU)N 
66a RESTORE 690:LS>ZI!LL»1I 

664 a=o 

665 READ I,J;F 1=3 THEN RETWN 

666 IF M MM at 

667 ff PEEK(53775)<255 TfCN FL=1:RETURN 
669 SOUND 0,I,10,10:SOUM) 1,I-2»10>6 

671 FOR Isl TO J!FOR K-1 TO LSiNEXT K!NEXT liSOUNO 

0,0,0»O:SOUND 1,0,0,0 

675 FOR 1=1 TO LL.'NEXT IJGOTO 665 

680 RESTORE 69ZiU^12tU.=m&BB 6M 

681 F FL=1 THEN RETURN 

682 RESTORE 6?1.'G0SUB 661 

683 IF FL-1 HEN RETURN 
681 RESTORE 692!G0SUB 664 

685 ff FL=1 nCN RETURN 

686 RESTORE 696:GQGUB 664 

687 F a=l TfCN RETURN 

688 FOR 1=1 TO 300;NEXT I:G0T0 680 

690 DATA 243,1,243,1»243,1,243»4, 
201,1,217,1,217,4,243,1,213,1,255,1,213,6,3,3 

692 DATA 213,1,217,1,201,1,182,1,162, 
l,2l1,l,162,l,0,l,17M»217»itl73,l, 
0,1,182,1,230,1,182,1,0,1 

693 DATA 213,1,217,1,204,1,182,1,162, 
1,201,1,162,1,121,1,3,3 

691 DATA 136,1,162,1,201,1,162,1,136, 
1,3,3 

696 Dm U2,1,2I4,1,162,1,121,1,243, 

1,3,3 

697 DATA 81,4,85,2,102,1,108,1,121,6, 
108,1,102,1,81,2,81,2,85,2,112,1,118, 

1,121,8 

698 DATA 108,2,91,2,102,2,108,2,121,1, 
128,1,121,1,118,1,112,2,121,2,81,4,112,4,121,8,3,3 

699 REN n SIBR. TO INDICATE BATS LEFT n 

700 FBKE 656,0:POKE 657,6:? " "JJPOKE 657,6:F0R 
1=1 TO BN(P)!? "f hex; liREIURN 

850 POKE 656,1:P0KE 657,51? SCORE(P)J" "{RETURN 

860 POKE 656,1:P0KE 657,12;? TOni(P)|" "JRETUIN 

871 POiC 656,UPa<E 6S7,Si? " "tREIUM 

880 POKE 656,1:P0KE 657,12;? " ";RETURN 

910 GOSUB 63a:PaE 53278,0;SCORE(P}»SCORE(P)^25:GOTO 



999 REN n SUBR. TO REHOVE PH GR. n 

1000 POKE 53277, 0;POKE 54272, 0;FOR 1=53261 TO 
S32HU>OE I,liNEXT I»E1l»l 

1999 REM M SUBR. TO INSERT PN GR. n 

2000 POKE 53277,3;PQKE 5S9,46;STMtT=(PEEK( 106)^1) :POKE 
756,START 



2109 REN n ALTER DISPLAY LIST n 

2110 AFfEEK(S60)t2S6«>EEK(561) 

2120 JF PEEK(A)066 THEN A=A+1;G0T0 2020 

2030 POKE A,70;PflKE A+3,6;P(]KE AH,6iPaKE kt5,6 

Zm RETURN 

3IM ? ;? ;? cn»(i25);? "+ + + + + + + bats + + + + ♦ 

+ + +";? 

3010 ? " The object is to fly aour bat";? "through s 
cavern eating flying" 

3020 ? "insects along the way. The only";? "control 
yw have is the FIRE";? "button. Posh it to go op." 
3130 ? "Release it and sour bat starts";? "to fall,";? 
;? " A round lasts 300 points or" 
3135 ? "until yw lose a bat. Each tine":? "you hit a 
stilactite or a" 

3040 ? "stilagMite you lose one bat";? "and points 
earned for that round." 

3I5I ? "Each insect yw eat scores points";? "but do 

not eat the bright insect the" 

3160 ? "color of your bat,, it is poison!";? "Eat hiM 

and you lose round points";? "plus 100 nore and a 

bat!!";? 

3065 ? "PRESS ANY KEY";G0SUB 680;? Cm$(12S):? :? 
3071 ? " After a tifie the cavern will";? "becone 
narrower and scores for the" 

3080 ? "last rouid uill be added to totals."!? "Every 
INO points you are given" 

3090 ? "another bat, 4 naxinuM. Lose";? "all your 
bats and you are out." 

4110 ? "The gane is over when everyone is";? "out of 
bats. Everyone uses the";? "leftmost joystick".? 

;return 

31999 REM n CtWNGE CW«ACTER SET a 

321 0 0 POKE 106,PEEK(106)-5;6RAPMIC.S 

i{START»(PEEK(ll6)n)i256;P0KE 756,START/256;PGKE 752,1 
32010 ? "INITMJZING " 

32020 A=USR(ADR(ZZ$),5ZmSMH) 
{RESTORE 32100 

32030 READ X;F X=-1 THEN RESTORE ;RETURN 

32040 FOR Y=fl TO 7;READ Z;PflKE X+Y<START,Z;NEXT YJGOTO 

32030 

321W DATA 32,255,255,127,127,126,62, 
62,60 

32101 QATA 4l,6l,28,28,24f8,8,8,8 

32102 DATA 48,255,127,126,60,56,24,8,8 

32103 iMTA 56,8,24,28,124,124,254,254, 

2S5 

32101 DATA 61,60,126,126,126,126,126, 
127,255 

32105 DATA 72,16,16,16,16,16,21,60,60 

32106 DATA 80,255,255,255,255,255,255, 
255,255 

32117 DATA 88,0,21,21,165,165,66,66,1 
32108 DATA -1 ^ 
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CONTEST! 



JPXJZZLE COJRISIEJR 

By Charles Godfrey 

This will be a new feature of our 

newsletter! Each month a new puzzle will be 
presented^ with a review of the previous 
months' puzzlet 

Problems will be selected that should 
require the writing of a computer program to 
find the answer^ They are not meant to be 
trick questions^ but practical problems with 
legitimate answers* To further intice yout 
M*A»C»E» Will award the first winner of each 
contest a MACE Library disk or tape of their 
choice! 

Khat I would like (besides the right 
answer) is a few tidbits about how you solved 
the problem^ such as** what computer did you 
use* what language^ how many statements^ and 
how long did it take the computer to arrive at 
the answer* Your puzzle master has solved 
this months problem using three different 
languages on as many different computers* 

The correct entry bearing the earliest 
postmark will be considered the winner* No 
entries accepted after midnight^ August 13» 
1982* All entries become the property of 
MACE* Winner will receive a certificate good 
for one library disk or tape of their choice* In 
the event of a tie# more than one winner may 
be selected* Respond only by ^ail* No phone 
calls accepted* : 

Address your entry to* 

MACE PUZZLER 
2639 Hempstead 

Auburn Heights, Michigan 43057 

You are sitting in the middle of a circle of 
1000 people with a gun with 1000 bullets* 
Starting with anyone as number one, you shoot 
that person* You then start shooting every 



other live person continuously around the 
circle until everyQ^ is dead* 

The puzzler is? BY NUMBER, WHO IS THE 
LAST ONE TO DIE? 

This question was the 
problem-of-the-month several years ago at 
Yale university* If the wording bothers yout 
pretend that the people are dominoes* q 
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MICHIGAN ATARI COMPUTER ENTHUSIASTS 



President: 



Vice Pres.: 



Treasurer: 



Secretary: 



Arlan Levitan 

12709 Borgman 

Huntington Woods, MI 48070 

399-6963 

Micronet: 70675,463 
Source ID: TCT987 

Jerry Aamodt 
4148 Huhn 
Rochester. MI 48063 
574-1020 

Judy Braun 

39281 Eliot 

Mt. Clemens, MI 48043 

Sheldon Leemon 

14400 Elm 

Oak Park, MI 48237 

398-2608 



Programs: 



Gary Luzier 

22530 Gordon 

St. Clair Shores, MI 48081 

773-3446 



Librarians: Sam Findley (Disk) 

8171 Denwood. Apt. #1 
Sterling Heights, MI 48077 
939-3822 

Rodney Graham (Tape) 

12270 Deming 

Sterling Heights, MI 48077 

264-6355 

Newsletter: Marshall Dubin 

2639 Hempstead 
Auburn Heights, MI 48057 
338-3488 



Program Library Submission Form 

I wish to submit the following program to the M.A.C.E. program library. I 
warrant that I have good title to this program, and that it does not infringe upon 
any copyright. Limited rights are transferred herewith for the use of this program 
within the membership of M.A.C.E. and its associated Atari Computer organiza- 
tions. 



Program Name 
Description _ 



Submission Media: Tape Disk 



List 



Catagory: Business 



Demonstration 



Education 



Game 



Minimum System: Memory 

Disk 



K BASIC 



Tape 



Interface. 



Assembler . 
Modem 



Utility 



PILOT, 
Printer 



Name . 



Joystick Controllers 



Paddle Controllers 
Phone 



Other. 

PASCAL 
Light Pen. 



Keyboard Cont. 
_ Date 



M»A«CJE«* 
P.O Box 2785 . 
Southfi«ld, Ml 48037 



$15.00 fee for 12 months* 



Name 

Street 
City_ 



M.A.C.E. Membership Application 

r 

PhoiM 



State 



Company (if applicable) 

System Description 

Suggestions ^ 



I can help with . . . 

□ New 

□ Renewal 

'Make checks payable to: 

M.A,C.E. 



f 



Date 



Zip Code 



DiskA'ape. 



I 



Amount 

□ Cash 

□ Chtck Number 



Coupon _„ 

. Membership Card Number 
Expires 



RITE WAY ENTERPRISES 

EVERYTHING DISCOUNTED EVERYDAY 



ATARI 

MICROSOFT 
BASIC 

$75.95 



(313) 751-2454 
8262 12 MILE 

WARREN. Ml. 48093 



nSCOUMT 

Computer 
SOURCE 



irTEWAY 
12 MILE 



l-«8f 



5 ^ 



OPEN 

10 a.m.-9 p.m. 
Mon.-Sat. 



MICHIGAN ATARI COMPUTER ENTHUSIASTS 
PaOa BOX 2785 

sbuTHFIELD, MICHIGAN 48037 



BULK RATE 
U.S. POSTAGE 

PAID 
PERMIT #431 
SOUTHFIELD, Ml 



IMPORTANT DATED MATERIAL 



PLEASE DO NOT DELAY 

Printing and Bindery Snrvicis by • GRAPHIC ENTERPRISES. INC. Detroit. Michigan • 313-839-6800 



